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ABSTRACT 


The  objective  of  this  thesis  research  is  to  create  a  tutorial  for  teaching  aspects  of 
"undirected  graphs"  in  discrete  math.  It  is  one  of  the  submodules  of  the  Discrete 
Math  Tutorial  (DMT),  which  is  a  Computer  Aided  Instructional  (CAI)  tool  for  teach¬ 
ing  discrete  math  to  the  Naval  Academy  and  the  Westpoint  Military  Academy  stu¬ 
dents.  In  order  to  accomplish  the  objective,  an  exploration  of  various  conventional 
CAI  techniques  is  necessary  to  determine  which  methods  are  readily  adaptable  for 
use  with  the  PCs.  Many  of  the  design  issues  normally  associated  with  the  develop¬ 
ment  of  CAI  packages  are  exasperated  by  the  current  physical  limitations  of  the  PC- 
based  systems.  With  proper  design  and  appropriate  trade-offs,  however,  effective 
CAI  packages  for  the  PCs  are  possible.  The  software  designed  for  this  thesis  is  only 
an  example  of  the  possibilities  made  available  by  the  PCs. 
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L  INTRODUCTION 

It  was  only  two  decades  ago  that  parents  were  sitting  at  the  kitchen  table  trying 
to  make  sense  of  the  "new  math"  their  children  studying  in  school.  The  parents  were 
puzzled  and  dismayed  at  their  own  inability  to  understand  their  ten-year-old’s 
homework.  But  that  proved  to  be  only  the  beginning.  Today  we  find  that 
"yesterday’s  children"  are  facing  a  similar  problem.  Yesterday’s  child,  the  one  who 
helped  his/her  parents  understand  "new  math",  is  seeing  his/her  children  using 
computers  in  their  classrooms,  a  "magical"  tool  to  a  lot  of  parents. 

The  rate  at  which  computers  are  being  used  in  schools  is  rapidly  increasing.  Today 
it  is  not  unusual  to  have  a  student  going  to  a  programming  class  and  being  taught  how 
to  use  a  computer  by  another  computer,  or  to  study  their  science,  history,  math  or 
other  subjects  via  the  computer.  Another  change  from  "yesterday"  is  that  this 
learning  via  the  computer  does  not  stop  once  the  child  leaves  the  classroom.  Chances 
are  they  can  take  their  assignments  home  and  finish  them  at  home. 

In  1987  '",“r  two  millicn  heme  computers  were  sold  and  by  1986,  this  figure  had 
increased  to  10  million.  Children  can  go  to  computer  camps  to  either  learn  how  to  use 
one  or  to  teach  others.  Computers  are  a  big  "hit”  on  the  college  and  university 
campuses  today.  For  instance,  each  of  our  target  users,  the  cadets  in  the  Westpoint 
Military  Academy  and  the  midshipmen  in  the  Naval  Academy,  has  his/her  own 
computer  in  their  dormitories.  Some  colleges  and  universities  are  insisting  that  all 
incoming  students  have  computers. 

With  appropriate  software,  computers  can  become  a  valuable  learning  tool.  The 
key  to  successful  implementation  of  these  devices  in  education  is  the  development  of 
software  which  has  been  appropriately  designed  to  the  unique  characteristics  of  the 
course  and  the  microcomputer  in  question,  and  the  abilities  of  the  learner  population 
[Ref.  1].  The  field  of  statistics  has  traditionally  been  on  the  leading  edge  of  applying 
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computer  technology  to  assist  in  the  large  amount  of  tedious  calculations  involved  in 
statistical  analysis.  As  such,  a  wide  variety  of  statistical  educational  software  is 
available  for  use  on  mainframes  and  minicomputers.  In  addition,  programmable 
calculators  have  frequently  been  used  to  assist  both  students  and  statistician  in 
completing  basic  mathematical  calculations.  However  the  development  of  similar 
packages  for  learning  statistics  or  discrete  mathematics  using  the  PC  has  been 
lagging  far  behind.  Current  limitations  of  the  PC,  particularly  in  the  area  of  memory 
capacity,  have  discouraged  the  implementation  cf  full  scale  PC-based  CAI  packages. 
With  proper  design  and  appropriate  trade-offs,  however,  effective  CAI  packages  for 
the  PC  are  possible.  The  PC  is  too  valuable  as  an  educational  tool  to  be  cast  aside 
for  creative  software  designs.  The  possibilities  encompassed  by  individual  use  of  a 
PC  far  exceed  those  of  the  personal  calculators  which  have  already  revolutionized 
many  aspects  of  basic  statistical  education.  The  software  developed  in  this  thesis  is 
only  an  example  of  the  possibilities  made  available  by  the  PC.  It  is  hoped  that  this 
treatment  will  serve  as  the  impetus  for  others  to  develop  and  implement  much  more 
extensive  PC-based  software. 
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U.  BACKGROUND 


A.  WHAT  IS  A  COMPUTER  AIDED  INSTRUCTION  (CAI)  ? 

Like  many  things  in  this  rapidly  changing  world  we  live  in,  CAI  has  been  defined 
in  numerous  ways,  some  of  which  include  the  following  : 

Computer  Aided  Instruction  refers  to  the  use  of  computers  in  an  interactive 
manner  where  the  computer  both  presents  material  to  and  receives  analysis. 
It  acts  upon  responses  from  each  student  on  an  individual  basis.  [Ref.  2] 

or. 


Computer  Aided  Instruction  is  a  supplementary  classroom  tool  that  helps 
teachers  teach  more  effectively.  It  is  a  system  that  enables  many  students 
and  a  single  teacher  to  engage  in  a  one-to-one  dialogue,  using  a  high  speed 
digital  computer  as  the  communication  medium.  Because  of  this,  instruction 
becomes  a  two-way  communication  system  that  enables  the  teacher  to 
monitor  the  progress  and  tailor  instruction  to  fit  a  student’s  needs.  It 
accomplishes  this  mighty  task  by  enabling  the  instructor  to  deliver  an 
appropriate  instructional  move  at  the  precise  moment  when  a  particular 
instruction  action  is  needed.  [Ref.  3] 

or,  very  simply. 

Instruction  that  is  assisted  or  aided  through  use  of  the  computer.  [Ref.  4] 

B.  FIVE  BASIC  CATEGORIES  OF  CAI 

CAI  can  be  subdivided  into  five  "teaching  strategies"  : 

•  Drill  and  Practice, 

•  Tutorial, 

•  Problem  Solving, 

•  Simulation, 

•  Instructional  Games.  [Ref.  5[ 


3 


The  goal  of  the  drill  and  practice  strategy  is  to  cement  the  retention  of  the 
material  by  repeated  practice  and  exercise.  The  tutorial  strategy  encompasses  a 
great  deal  more  than  the  relatively  simple  drill  and  practice  strategy.  Where  as  drill 
and  practice  programs  serve  as  an  adjunct  to  the  instructor,  tutorial  programs  strive 
to  "replace"  the  instructor  as  much  as  possible.  Problem  solving  encompasses 
programs  which  are  written  to  solve  certain  select  problems  in  a  specific  area. 
Simulation  is  generally  used  for  the  generation  and  manipulation  of  data  or  the 
repetitive  cycling  of  a  model  when  environmental  factors  preclude  normal  methods. 
The  distinctive  feature  of  instructional  games  is  the  attempt  to  use  a  student’s 
competitive  nature  to  achieve  certain  learning  goals  or  skills. 

As  for  our  thesis,  we  take  the  tutorial  approach  and  develop  a  pan  of  the  Discrete 
Mathematics  Tutorial  (DMT)  that  aims  at  teaching  discrete  math  to  the  academy 
students.  In  the  following  section  we  will  introduce  DMT  briefly. 

C.  DMT 

CAI  systems  may  be  generally  viewed  in  two  ways  :  machine-directed  and 
student-directed.  Discrete  Math  Tutorial  (DMT)  lies  in  between  the  two  approaches. 
DMT  teaches  a  panicular  lesson  as  it  is  programmed  by  its  designers.  On  the  other 
hand  the  student  has  always  the  capability  and  the  opportunity  of  controlling  the  flow 
of  the  lessons  via  the  functions  provided  by  DMT,  such  as  PgUp/PgDn. 

The  DMT  provides  a  simple  mixed  initiative  environment  that  contains  two  parts. 
The  first  part  presents  a  standard  CAI  lesson  to  the  student.  The  DMT  presents  each 
lesson  as  pages  (or  windows)  on  the  screen.  The  student  is  allowed  to  move  from 
topic  to  topic  in  any  particular  lesson.  The  second  part  provides  the  mixed  initiative 
environment.  Within  the  lesson,  the  student  may  access  the  DMT  user  interface.  The 
DMT  user  interface  contains  the  following  functionality  : 

•  Provides  the  user  with  the  ability  to  print  (or  save  to  disk)  any  definition,  al¬ 
gorithm  or  example  in  the  DMT. 
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•  Provides  the  user  with  the  ability  to  run  any  algorithm  in  the  DMT  using  his 
own  data. 

•  Provides  the  user  with  a  simple  calculator. 

These  three  functions  allow  the  user  to  step  the  lesson  he/she  is  currently 

working  on  at  any  time  and  pursue  topics  of  interest.  For  example,  a  user  may  find  a 
term  he/she  does  not  remember  during  a  lesson.  All  he/she  has  to  do  is  access  the 
DMT  interface  and  look  up  the  unknown  definition  and  then  return  to  the  lesson  if 
he/she  so  desires.  Finally  the  user  can  access  a  simple  calculator  to  help  with  difficult 
computations. 

These  three  functions  provide  a  noncomplex,  but  effective,  mixed  initiative 
environment  for  the  user  to  learn  discrete  math. 

For  this  thesis,  we  have  designed  the  undirected  graphs  lesson,  which  is  one  of 
the  modules  of  the  DMT. 
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III.  UNDIRECTED  GRAPHS  IN  DMT 


Even  though  graphs  have  been  studied  for  a  long  time,  the  increased  use  of  com¬ 
puter  techno’  ^gy  has  generated  a  new  interest  in  them.  Not  only  have  applications  of 
graphs  been  found  in  computer  science  but  in  many  other  areas  such  as  business  and 
science.  As  a  consequence,  the  study  of  graphs  has  become  very  important. 

In  this  thesis,  we  give  the  user  basic  concepts  of  graphs,  and  by  choosing  suitable 
examples,  we  try  to  give  them  the  flavor  of  different  applications. 

A.  DESIGN  STRATEGY 

1.  Front-end  analysis 

The  target  population  is  the  U.S.  Naval  Academy  students  and  the 
Westpoint  Military  Academy  students.  The  system  on  which  the  tutorial  is  to  be 
implemented  is  an  IBM  PC  or  compatible  computer  with  VGA  graphics  cards  and 
monitors.  None  of  the  topics  takes  more  than  one  hour  to  complete. 

2.  Lesson  Design 

The  objective  of  this  design  is  to  teach  the  following  topics  : 

•  Graphs  and  their  representations, 

•  Paths  and  circuits, 

•  Coloring  a  graph, 

•  Properties  of  trees, 

•  Rooted  trees, 

•  Spanning  trees  and  Breadth  First  Search 

•  Depth  First  Search 

•  Minimal  spanning  trees, 

•  Binary  trees, 

•  Sorting  and  searching, 

•  Language  syntax. 
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Each  topic  starts  with  an  introduction  which  is  followed  by  definitions, 
theorems,  examples  and  finally  exercises. 

We  have  used  definitions  to  explain  keywords  and  new  concepts  in  each 
topic.  We  usually  illustrate  these  definitions  with  suitable  pictures.  We  believe  that 
the  best  way  to  amplify  a  section  of  a  lesson  is  to  provide  examples. 

During  a  lesson,  whenever  it  is  appropriate,  we  introduce  theorems  to  show 
the  principles  related  to  the  topics  being  taught.  For  each  theorem,  a  proof  is  provided 
to  prevent  dogmatism. 

At  the  end  of  each  section  we  provide  many  exercises  to  cover  each  concept 
in  that  section.  We  think  that  practice  makes  perfect.  The  exercises  used  are 
multiple  choice,  True/False,  and  test-yourself  types  of  questions.  When  the  user 
inputs  the  wrong  answer  in  the  first  two  types  of  questions,  he/she  receives  the 
correct  answer  together  with  the  reasoning  for  the  answer.  In  the  test-yourself  type 
of  questions,  we  let  the  user  solve  the  problems  by  himself/herself,  and  when  he/she 
is  ready,  he/she  can  see  if  the  answer  is  correct.  This  type  of  question  is  used  for 
algorithm  applications.  In  addition  to  seeing  the  correct  answer,  if  he/she  likes,  the 
user  can  step  through  the  solutions  and  also  trace  through  the  algorithm’s  steps  to 
refresh  his/her  memory. 

The  reason  why  we  have  chosen  the  step-by-step  approach  in  the  solutions 
of  some  of  the  exercises  and  examples  is  because  we  believe  that  in  preparing  a 
course  for  individual  study,  it  is  necessary  to  analyze  carefully  the  steps  that 
comprise  the  procedures  to  be  learned  and  the  understanding  required  to  perform 
them.  To  ensure  that  nothing  crucial  is  misunderstood,  every  task  that  is  identified  in 
the  job  or  area  breakdown  is  itself  divided  into  the  steps  that  comprise  that  task. 

In  the  following  paragraphs  we  present  the  contents  of  each  topic  more 
specifically. 
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a.  Graphs  and  Their  Representations 

It  is  quite  common  to  represent  situations  involving  objects  and  their 
relationships  by  drawing  a  diagram  of  points,  with  segments  connecting  those  points 
that  are  related.  The  general  idea  in  this  section  is  to  represent,  by  a  picture,  a  set  of 
objects  and  their  relations.  In  this  section  we  talk  about  the  ways  to  represent  graphs 
(namely  matrix  representations  and  adjacency  lists),  labeled  graphs,  and  some 
definitions  such  as  vertices,  edges,  connectivity,  adjacency,  etc.  At  the  end  of  the 
section,  we  touch  a  little  bit  upon  matrix  operations. 

b.  Paths  and  Circuits 

In  the  previous  section  we  have  seen  that  graphs  can  be  used  to 
describe  a  variety  of  situations.  In  many  cases  we  want  to  know  whether  it  is 
possible  to  go  from  one  vertex  to  another  following  a  sequence  of  edges.  In  other 
cases  it  may  be  necessary  to  perform  a  test  that  involves  finding  a  route  through  all  of 
the  vertices  or  over  all  of  the  edges.  While  many  situations  can  be  described  by 
graphs  as  we  have  defined  them,  there  are  others  where  it  may  be  necessary  to  allow 
an  edge  from  a  vertex  to  itself  or  to  allow  more  than  one  edge  between  vertices.  In 
this  section  we  define  multigraphs,  simple  paths,  cycles,  Euler  circuits  and  paths,  and 
Hamiltonian  cycles.  We  also  look  at  ways  to  find  a  shortest  path  between  vertices  in 
a  graph.  At  the  end  of  this  section  we  introduce  "Isomorphism". 

c.  Coloring  a  Graph 

Suppose  that  a  chemical  manufacturer  needs  to  ship  a  variety  of 
chemical  products  from  a  refinery  to  a  processing  plant.  Shipping  will  be  by  rail.  But 
according  to  regulations,  not  all  of  these  chemical  products  can  be  shipped  together  in 
one  railroad  car  because  of  the  possibility  that  they  mix  together  and  create  a  violent 
reaction  should  an  accident  occur.  How  can  these  products  be  shipped?  In  order  to 
minimize  the  expenses  the  manufacturer  wants  to  use  the  smallest  possible  number 
of  railroad  cars.  What  is  this  number  ? 
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In  this  example,  we  see  that  there  are  objects  (chemical  products) 
and  relationships  (cannot  travel  in  the  same  railroad  car)  existing  among  them.  Since 
these  are  the  basic  components  of  a  graph,  it  seems  natural  to  model  it  using  a  graph 
where  the  vertices  are  chemical  products  and  an  edge  is  drawn  between  two  vertices 
whenever  the  two  chemical  products  cannot  be  in  the  same  railroad  car.  For  the 
solution,  we  must  assign  labels  to  the  vertices  of  the  graph  so  that  adjacent  vertices 
have  different  labels.  Each  label  represents  a  different  railroad  car.  This  idea  occurs 
frequently  in  graph  theory.  For  historical  reasons  the  labels  are  called  colors,  ard  the 
problem  is  known  as  a  graph  coloring  problem. 

In  this  section  we  examine  the  chromatic  numbers  of  graphs  and  the 
Welsh  and  Powell  algorithm  for  coloring  graphs.  In  the  examples  and  exercises  we 
have  used  color  graphics  to  represent  the  colors  of  vertices. 

d.  Properties  of  Trees 

Trees  are  a  commonly  occurring  type  of  graph  in  models  and 
computations  of  all  kinds.  Computer  scientists  are  particularly  familiar  with  these 
structures  through  the  considerations  of  parse  trees,  tree  searches,  game  trees  and 
so  on.  In  this  section  we  define  trees  and  provide  further  characterizations  of  trees 
through  some  theorems  and  examples. 

e.  Rooted  Trees 

People  have  always  been  interested  in  learning  about  the 
descendants  of  historically  important  individuals.  To  assist  these  investigations  a 
genealogical  chart  is  often  drawn.  Here  comes  the  idea  of  rooted  trees.  In  this  section 
we  introduce  the  parent  child  relationship  in  addition  to  the  ancestor,  descendant  and 
terminal  vertex  concepts. 

/.  Spanning  Trees 

In  this  section  we  show  how  spanning  trees  play  an  important  role  in 
connection  with  the  circuit  space  and  with  the  separability  of  a  graph.  We  also  show 
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how  the  Breadth  First  Search  algorithm  is  implemented  using  the  step-by-step 
instruction  method. 

g.  Depth  First  Search 

Another  algorithm  for  finding  a  spanning  tree  is  the  Depth  First 
Search  algorithm.  In  this  section  we  show  how  this  algorithm  is  implemented,  again 
using  a  step-by-step  approach. 

h.  Minimal  Spanning  Trees 

In  some  cases  we  want  to  find  a  spanning  tree  in  which  the  sum  of  the 
costs  of  all  the  edges  is  as  small  as  possible.  Here  we  introduce  two  algorithms 
which  find  minimal  spanning  trees,  namely  Prim’s  Minimal  Spanning  Tree  Algorithm 
and  Kruskal’s  Minimal  Spanning  Tree  Algorithm. 

i.  Binary  Trees 

Binary  trees  are  used  extensively  in  computer  science  to  represent 
ways  to  organize  data  and  describe  algorithms.  In  this  section,  we  introduce  the 
definition  of  a  binary  tree  and  explain  related  concepts.  We  also  introduce  the  Polish 
Notation,  the  reverse  Polish  Notation,  inorder,  preorder,  and  postorder  traversals. 
Each  concept  is  illustrated  with  appropriate  examples. 

j.  Sorting  and  Searching 

Since  our  concern  is  trees,  in  this  section  we  cover  only  the  method  of 
obtaining  a  sorted  list  from  a  binary  search  tree.  To  do  this,  we  show  how  a  binary 
search  tree  is  constructed  from  a  given  list,  then  illustrate  how  the  sort  operation  is 
performed.  We  also  include  how  to  search  for  a  particular  object  in  a  binary  search 
tree. 

k.  Language  Syntax 

In  this  section  parse  trees  are  introduced  as  an  application  of  trees. 
We  talk  about  what  a  grammar  is  and  give  example  grammars.  Additionally,  we  touch 
a  little  bit  on  the  Backus-Naur  form. 
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IV.  PRE-DEVELOPMENT  CHOICES  AND  PROBLEMS 


A.  CHOICE  OF  HARDWARE  AND  LANGUAGE 

While  hardware  selection  and  programming  language  selection  can  be  discussed 
as  separate  issues,  the  interrelationships  between  the  two  (particularly  in 
microcomputer  systems)  require  that  this  selection  process  be  a  combined  procedure. 
Since  our  target  users  are  the  academy  students  who  have  their  own  PCs  we  have 
chosen  the  PCs  as  the  platform  for  our  software. 

As  for  the  language,  we  need  a  language  that  is  powerful  enough  to  allow  us  to 
make  windows,  menus  for  the  DMT  interface  and  create  graphics  screens.  We  think 
that  the  C  programming  language  with  its  powerful  graphics  capabilities  is  the  best 

possible  one  among  the  existing  languages  that  meets  our  needs.  We  have  written 

% 

and  compiled  our  programs  using  the  Turbo  C  Ver.  2.0  . 

j|(  jfc 

For  the  DMT  User  Interface,  a  windowing  package,  CXL  ,  has  been  used.  This 
package  allows  us  to  make  different  types  of  menus  and  do  extensive  operations  with 
windows.  It  has  over  260  functions  related  to  windowing,  menuing,  data  entry  etc. 
With  its  available  functions,  we  think  that  this  software  package  will  be  very  useful 
for  the  other  stages  of  the  DMT  project. 

B.  PROBLEMS  ENCOUNTERED  DURING  DEVELOPMENT 

During  the  development  phase,  our  program  reached  a  point  where  it  was  no 
longer  possible  for  us  to  use  the  existing  small  memory  model.  We  had  to  consider 
two  possible  solutions  : 


*Turbo  C  Version  2.0  Copyright  (c)  1987,  1988  Borland  International 
**CXL  is  Copyright  (c)  1987  -  1988  Mike  Smedley 
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•  Switch  to  the  larger  memory  models  of  Turbo  C  and  use  the  corresponding 
CXI  libraries,  or 

•  Decompose  our  program  into  separately  compilable  modules. 

We  preferred  the  second  alternative,  because  it  would  be  easier  to  maintain  the 

program  this  way.  Moreover,  it  would  let  us  add  new  lessons  to  the  DMT  by  simply 
modifying  the  main  module.  The  only  disadvantage  is  that  we  had  to  link  each 
separately  compiled  module  with  the  necessary  libraries. 
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V.  HOW  TO  USE  THE  PROGRAM 


Since  our  program  is  a  part  of  the  DMT,  the  only  way  of  accessing  the  program  is 
by  way  of  the  DMT  User  Interface.  When  the  user  chooses  the  graphs  lesson  from 
the  main  menu  of  the  DMT  interface,  the  sections  of  our  lesson  will  come  up  as  a  sub¬ 
menu.  Choosing  any  one  of  the  sections  will  start  that  particular  lesson.  Here  the  us¬ 
er  has  the  following  alternatives  : 

•  Pressing  any  key  to  continue  sequentially, 

•  Using  PgUp/PgDn  keys  to  move  from  topic  to  topic  anytime, 

•  Pressing  the  ESC  key  to  return  to  the  previous  menu. 

The  user  will  see  the  "Press  a  key"  and  "PgUp/PgDn"  directives  at  the  bottom  of 
the  active  window.  An  example  of  a  text  screen  is  shown  in  Figure  1.  A  typical  graph¬ 
ics  screen  is  reproduced  in  Figure  2. 

Sometimes,  there  may  be  multiple  windows  in  the  screen,  and  some  of  them  may 
be  hidden  by  others.  At  this  time,  if  the  user  misses  the  information  in  one  of  the  hid¬ 
den  windows,  he/she  can  bring  this  window  to  the  front  by  pressing  Ctrl  PgUp  key  as 
many  times  as  needed.  Similarly,  by  using  Ctrl  PgDn  key  he/she  can  return  to  the  lat¬ 
ter  windows. 

During  the  exercises,  depending  on  the  type  of  questions,  the  user  is  expected  to 
enter  a  certain  type  of  input,  such  as  "a",  "b",  "c",  "d",  "y"  or  "n".  If  the  user  enters 
any  other  character,  he/she  is  prompted  to  enter  an  acceptable  one. 

Normally,  each  session  terminates  when  the  user  completes  the  last  exercise  of 
that  section,  and  he/she  returns  to  the  previous  menu  where  he/she  can  choose  anoth¬ 
er  section.  However,  he/she  can  terminate  that  section  by  pressing  the  ESC  key  at 
any  time  he/she  chooses.  If  the  ESC  is  pressed,  the  program  will  ask  the  user  to  con¬ 
firm  the  termination. 
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[Adjacency  List 


Pgup/Pgdn 


[Adjacency  List  ] 

BWMWI 

[Adjacency  List  ][ 

Matrices  are  not  the  only  way  to 
represent  graphs  in  a  computer.  Although 
an  adjacency  matrix  is  easy  to  construct , 
this  form  of  representation  requires  more 
storage  for  a  graph  with  n  vertices  and 
can  be  quite  inefficient  if  the  matrix  con¬ 
tains  lots  of  zeros. 


A  better  representation  for  such 
a  matrix  is  an  adjacency  list. 

The  basic  idea  of  an  adjacency 
list  is  to  list  each  vertex  followed 
by  the  vertices  adjacent  to  it.  To 
form  the  adjacency  list,  we  begin 
by  labeling  the  vertices  of  the 
graph  G.  Then  we  list  the  verti¬ 
ces  in  a  vertical  column,  and  af¬ 
ter  each  one  we  write  down  the 
adjacent  vertices.  Thus  we  see 
that  the  l’s  in  a  row  of  an  adja¬ 
cency  matrix  tell  what  vertices 
are  listed  in  the  corresponding 
row  of  an  adjacency  list. 


Figure  1.  An  Example  of  Text  Windows. 


GRAPHS  THAT  ARE  TREES.  GRAPHS  THAT  ARE  NOT  TREES 


»  PRESS  A  KEY  TO  CONTINUE..« 
Figure  2.  An  Example  of  Graphics  Windows. 
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VI.  CONCLUSIONS  AND  RECOMMENDATIONS 


This  study  achieves  its  primary  goal  of  producing  a  tutorial  for  teaching 
"undirected  graphs"  in  discrete  math. 

The  software  was  designed  to  provide  expendability  and  maintainability.  The  ease 
of  expanding  the  tutorial  will  allow  for  modules  to  be  added  or  deleted  as  the  need 
arises.  For  example,  the  "directed  graphs"  module  may  be  added  to  our  "undirected 
graphs"  module  to  complete  the  graphs  segment. 

Decomposing  the  entire  program  into  separately  executable  modules  creates  an 
immense  amount  of  code  body  and,  consequently,  a  need  for  a  large  amount  of  storage 
is  necessary.  Ways  to  overcome  this  drawback  should  be  examined. 

With  the  existing  windowing  package,  we  are  unable  to  present  graphics  within 
the  text  windows.  In  the  future,  another  windowing  package  should  be  found,  which 
allows  graphics  and  text  to  be  displayed  on  the  same  screen  together.  In  this  way, 
the  programmer  won’t  have  to  switch  between  graphics  mode  and  text  mode  frequent¬ 
ly,  and  won’t  have  to  include  both  the  windowing  library  and  the  graphics  libraries 
separately.  Thus,  the  sizes  of  code  bodies  will  be  decreased  significantly. 

An  implementation  of  a  notepad  with  which  the  user  can  take  notes  during  a  ses¬ 
sion  can  be  added  as  a  feature  to  the  DMT  interface.  This  will  further  enhance  the  us¬ 
er  friendliness  of  the  tutorial  by  enabling  the  student  to  keep  personally  difficult  items 
in  an  easily  accessible  place. 
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APPENDIX 


LISTING  OF  THE  SOURCE  CODE 

This  section  contains  the  program  listings  for  the  developed  tutorial.  The  modules 
are  listed  in  the  sequential  order  in  the  tutorial. 


/*  PROGRAM  :  grep.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4, 1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  the  tutorial  for  the  graphs  and  their  repre¬ 
sentations. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

/*  header  files  */ 

#include  <process.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

#if  defined  ( _ TURBOC_) 

#include  <dir.h> 

#else 

#include  <direct.h> 

#endif 

#if  defined(M _I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 


/*  Turbo  C  */ 

/*  all  others  */ 
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#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos.  findfirst(a,c,b) 
#define  fmdnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defmed( _ ZTC _ ) 

#define  ffblk  FIND 

#define  ff_name  name 
#deFme  ff_attrib  attribute 

#endif 

#define  _GRAPH_T  DEFINED 

/*  function  prototypes  */ 

static  void  add_shadow  (void); 

static  void  confirm_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  dojnothing  (void); 

static  void  error_exit  (int  ermum); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  normal_exit  (void); 

static  void  Pause  (void); 

static  void  press_a_key  (int  wrow); 

static  void  quit_window  (void); 

static  void  restore_cursor(void); 

static  void  short_delay  (void); 

static  void  size_window  (int  nerow.int  necol); 

static  void  example_3_2  (void); 

static  void  figure_3_2  (void); 

static  void  figure_3_6  (void); 

static  void  figure_3_7  (void); 

static  void  figure_3_8  (void); 

static  void  example_3_3  (void); 

static  void  example_3_6  (void); 

static  void  example_3_4  (void); 

static  void  example_3_5  (void); 

static  void  example_3_7  (void); 


/*  Zortech  C/C++  */ 
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static  void  example_3_8  (void); 
static  void  example_3_9  (void); 
static  void  theorem_3_l  (void); 
static  void  thm_3_l_pic  (void); 
static  void  matrix_rep  (void); 
static  void  theorem_3_2  (void); 
static  void  adjacency _list(void); 
static  void  matrix_ops  (void); 
static  void  definition_3_l(void); 
static  void  definition_3_2(void); 
static  void  definition_3_3(void); 
static  void  definition_3_4(void); 
static  void  definition_3_5(void); 
static  void  figure_3_2  (void); 
static  void  figure_3_6  (void); 
static  void  figure_3_7  (void); 
static  void  figure_3_8  (void); 
static  void  graph_rep  (void); 
static  void  exercise  1  (void); 
static  void  exercise2(void); 
static  void  exercise3(void); 
static  void  exercise4(void); 
static  void  exercise5(void); 
static  void  Pexercisel(void); 
static  void  Pexercise2(void); 
static  void  Pexercise3(void); 
static  void  Pexercise4(void); 
static  void  Pexercise5(void); 
static  void  initialize(void); 
static  void  Pageup(void); 
static  void  Pagedown(void); 
static  void  pre_help(void); 
static  void  Pgraph_rep(void); 
static  void  Pdef_3_l(void); 
static  void  Pex_3_2(void); 
static  void  Pex_3_3(void); 
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static  void  Pex_3_4(void); 
static  void  Pex_3_5(void); 
static  void  Pex_3_6(void); 
static  void  Pex_3_7(void); 
static  void  Pex_3_8(void); 
static  void  Pex_3_9(void); 
static  void  following_figl(void); 
static  void  following_fig2(void); 
static  void  following_fig3(void); 
static  void  following_fig4(void); 
static  void  following_fig5(void); 
static  void  following_fig6(void); 
static  void  following_fig7(void); 
static  void  following_fig8(void); 
static  void  following_fig9(void); 
static  void  Pdef_3_2(void); 
static  void  Pdef_3_3(void); 
static  void  Pfig_3_6(void); 
static  void  Pfig_3_7(void); 
static  void  Pcont_grep(void); 
static  void  Pcont2_grep(void); 
static  void  cont_grep(void); 
static  void  Pmatrixjnep(void); 
static  void  cont2_grep(void); 
static  void  cont_matrix_rep(void); 
static  void  Pcont_matrix_rep(void); 
static  void  Pmatrix_ops(void); 
static  void  Padj_list(void); 
static  void  Pdef_3_5(void); 
static  void  Pthm_3_l(void); 
static  void  Pthm_3_2(void); 


/♦♦♦♦I*******************************************************************/ 


/*  miscellaneous  global  variables  */ 
static  int  *savescm,crow,ccol; 
static  WINDOW  w[10]; 
static  char  ssan[lO]; 
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/*********************************************** ******** ****************/ 


/*  error  message  table  */ 
static  char  *error_textQ=  { 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  =  1,  windowing  error  */ 
"Syntax:  CXLDEMO  [-switches]\n\n" 

"\t  -c  =  CGA  snow  elimination\n" 

"\t  -b  =  BIOS  screen  writingNn" 

"\t  -m  =  force  monochrome  text  attributes", 
"Memory  allocation  error" 

}; 

/*  miscellaneous  defines  */ 


#define  SHORT.DELAY  18 
#define  H_WINTITLE  33 


y^************************************* ********************************/ 
/*  this  function  will  add  a  shadow  to  the  active  window  */ 

/***********************************************************************/ 


static  void  add_shadow(void) 

{ 

wshadow(LGREYI_BLACK); 


} 


I*  ***********************************  *********************>!<********** 


/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 


/***********************************************************************/ 


static  void  confirm_quit(void) 

{ 


struct  _onkey_t  *kblist; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
ifCmouse&MS_CURS)  mshidecur(); 

if(!wopen(9^6, 13,55, 0.WHITELBROWN.WHITELBROWN))  error_exit(l); 
add_shadow(); 

wputs("\n  Quit  demo,  are  you  sure?  \033A\156Y\b"); 

clearkeys(); 

showcur(); 

if(wgetchf("YN",’Y’)==’Y’)  noimal_exit(); 
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wcloseO; 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 


y***** ******************************************************************/ 

/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 

/********* ****************4^****  4^******** ******************** **********/ 

static  void  disp_sure_msg(void) 

{ 

wprints(0,2,WHITEI_BLUE,"Are  you  sure?"); 

} 

/***********************************************************************/ 
/*  this  function  is  used  as  a  dummy  function  for  */ 

/*  several  menu  items  in  the  pull-down  demo  */ 

/***********************************************************************/ 


static  void  do_nothing(void) 

{ 

} 


/*********************>>•*************************************************/ 


/*  this  function  handles  abnormal  termination.  If  it  is  passed  an  */ 

/*  error  code  of  1,  then  it  is  a  windowing  system  error.  Otherwise  */ 

/*  the  error  message  is  looked  up  in  the  error  message  table.  */ 

/***********************************************************************/ 


static  void  error_exit(int  ermum) 

{ 

if(ermum)  { 

printf("\n%s\n",(ermum==l)?werrmsg():error_text[eiTnum]); 

exit(ermum); 

} 

} 
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/**************************4^*******************************************y 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


/***********************************************************************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcurf); 

exit(0); 


} 

/***********************************************************************/ 
/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

/***********************************************************************/ 


static  void  press_a_key(int  wrow) 

{ 

register  int  attrl; 
register  int  attr2; 

attr  1  =(  YELLOW)l  ((_winfo.  active-  >wattr»4)«4) ; 
attr2=(LGREY)l((_winfo.active->wattr»4)«4); 
wcenters(wrow,attrl, "Press  a  key"); 
wprints(wrow,0,LGREYI_RED,”Pgup/Pgdn"); 
hidecur(); 

if(waitkey()==ESC)  confirm_quit(); 
wcenters(wrow,attrl,"  "); 
wprints(wrow,0,attr2,"  "); 

} 

^********^***^*^^*^^***************************************************1 


static  void  short_delay(void) 

{ 

delay  _(SHORT_DELAY); 

) 
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!*************> ********************************************************** f 

/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  [Q]uit  menu  items.  */ 

/***********************************************************************/ 


static  void  quit_window(void) 

{ 

static  WINDOW  handle=0; 
if(handle)  { 
wactiv(handle); 
wcloseO; 
handle=0; 


} 

else  { 

handle=wopen(  1 4,4 1 , 1 7,70,0,  YELLOWLRED.WHITELRED); 
wputs("  Quit  takes  you  back  to  theNn  demo  program’s  main  menu."); 

} 


} 


I***********************************************************************  ^ 


static  void  restore_cursor(void) 

{ 

wtextattr(WHITEI_MAGENTA); 

showcur(); 

} 


/***********************************************************************J 


static  void  size_window(int  nerow.int  necol) 

{ 

wsize(nerow, necol); 
short_delay(); 

} 

^* ********************************************************************** ^ 


static  void  move_window(int  nsrow.int  nscol) 

{ 

if(wmove(nsrow, nscol))  error_exit(  1 ); 
short_delay(); 

) 
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/***********************************************************************/ 


void  main() 

{ 

register  int  *scm; 


if((scm=ssave())=NULL)  error_exit(3); 
cclrscm(LGREYI_BLUE); 

graph_rep(); 

srestore(scm); 


/***********************************************************************/ 


static  void  initialize(void) 

{ 

/*  initialize  the  CXL  video  system  and  save  current  screen  info  */ 
videoinit(); 

readcur(&crow,&ccol); 
if((savescm=ssave())==NULL)  error_exit(3); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  { 

mssupport(MS_FULL); 
msgotoxy(  12,49); 

1 


/*  attach  [Alt-X]  to  the  confirm_quit()  function  */ 
setonkey(0x2d00,confirm_quit,0); 

/*  attach  [Ctrl  Pageup]  to  the  PageupO  function  */ 
setonkey(0x8400,Pageup,0); 

/*  attach  [Ctrl  Pagedown]  to  the  Pagedown()  function  */ 
setonkey  (0x7600,Pagedown  ,0); 
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/*  initialize  help  system,  help  key  =  [FI]  */ 

whelpef("CXLDEMO.HLP",Ox3bOO,YELLOWI_RED,LREDI_RED, 
WHITELRED,REDLLGREY  ,pre_help); 


1*^*********************************************************************/ 


static  void  pre_help(void) 

{ 

add_shadow(); 

setonkey(0x2d00,confirm_quit,0); 


} 


J********* ******************************************************** ******/ 

/*  this  function  is  called  anytime  to  switch  back  to  previous  window.  */ 

I* **********************************************************************/ 


static  void  Pageup(void) 

{ 

static  WINDOW  handle; 
handle  =  whandle(); 
wactiv(handle  -  1); 


} 

/***********************************************************************/ 
/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

/t*******:***************************:******#*****************************/ 


static  void  Pagedown(void) 

{ 

static  WINDOW  handle; 
handle  =  whandle(); 
wactiv(handle  +  1); 

1 
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/***********************************************************************/ 

static  void  graph_rep  (void) 

{ 

register  int  *scm; 

if((scm=ssaveO)== NULL)  error_exit(3); 
cclrscm(LGREYI_BLUE); 

/*  attach  [Pagedown]  to  the  cont_grep  function  */ 
setonkey(0x5 100tPcont_grep,0); 

/****************************************************************/ 

definition_3_l(); 

srestore(scm); 


/***********************************************************************/ 
void  definition_3_l(void) 

{ 

j*  *  *  *  *  *  *  *  *  *  *  *  ***  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

/*  attach  [Pageup]  to  the  graph_rep()  function  */ 
setonkey(0x4900,Pgraph_rep,0); 

/ft***************************************************************/ 

/*  attach  [Pagedown]  to  the  cont_grep  function  */ 
setonkey(0x5100,Pcont _grep,0); 

/****************************************************************/ 
if((w[l>wopen(6, 15,14,67, 3,LCYANI_GREEN,WHITELGREEN))==0) 
error_exit(l); 

wtitle("[Graph  Representations  Definition_3_l]”,TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTTTLE); 

wputsw("  Def :  A  graph  is  a  pair  G  =  (V,  E)  where:\n" 

"  1.  V  is  a  finite  set  whose  elements  are  called  vertices.Nn" 

"  2.  E  is  an  irreflexive,  symmetric  relation  on  V,  whose  elements" 

"  are  called  edges."); 
press_a_key(6); 
wcloseall(); 
cont_grep(); 


26 


/***********************************************************************/ 


static  void  cont_grcp(void) 

{ 


/*****************************************************************/ 


/*  attach  [Pageup]  to  the  definidon_3_l  function  */ 
setonkey(0x4900,Pdef_3_l  ,0); 


/*****************************************************************/ 


/*  attach  [Pagedown]  to  the  example_3_2  function  */ 
setonkey(0x5 1 00,Pex_3_2,0); 


I*****************************************************************/ 


if((w[l]=wopen(6,20^2,58,3XCYANI_BLUE,WHITELBLUE))=0)error_exit(l); 

wtitle("[GraphTheory]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

wputsw("  Graphs  are  among  the  most  useful  models  within  computer” 

"  science,  appearing  in  data  flow  models,  state  machines,  scheduling" 

"  algorithms,  circuit  layouts,  communication  networks,  flowcharts  and" 

"  sorting  and  searching  algorithms.  Other  applications  outside  of' 

"  computer  science  include  transportation  networks,  chemistry," 

"  process  control  systems,  and  the  social  sciences.  At  its  core," 

"  graph  theory  is  an  extension  of  the  theory  of  relations  on  a  set."); 
press_a_key(14); 
wslide(l,l); 

if((w[2]=wopen(2,42,9,77,3,LCYANI_RED,WHITEI_RED))==0)  error_exit(l); 
whelpcat(H_WINTTTLE); 

wputsw("Whenever  we  have  an  edge  e={U,V),  we  say  that  the  edge  e  connects" 

"  or  joins  the  vertices  U  and  V  and  that  U  and  V  are  adjacent."); 
press_a_key(5); 
wslide(17,3); 

if((w[3]=wopen(5,42, 1 8,77,3 J.CYANI_MAGENTA,WHITEI_MAGENTA))==0) 
error_exit(l); 
whelpcat(H_WlNTTTLE); 
wputsw  ("It  is  also  said  that  edge  i  is  incident" 

"  on  the  vertex  U  and  that  the  vertex  U  is" 

"  incident  on  the  edge  e.\n" 

"With  the  graph  in  the  following  figure" 

"  we  see  that  vertices  A  and  B  are  adjacent," 

"  whereas  vertices  A  and  C  are  not  because" 
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"  there  is  no  segment  between  them  (that  is," 
"  the  set  {A,  C}  is  not  an  edge)”); 
fo!lowing_figl(); 

} 


/***********************************************************************/ 


void  following_figl(void) 

{ 


Z*****************************************************************^ 


/*  attach  [PageUp]  to  the  cont_grep  function  */ 
setonkey(0x4900,Pcont_grep,0); 


y*****************************************************************/ 


/*  attach  [Pagedown]  to  the  definition_3_2  function  */ 
setonkey  (0x5 1 00,Pdef_3_2,0); 


y* ****************************************************************/ 


if((w[3]=wopen(20,42,24,77,3JLCYANLBLUE,WHITELBLUE))==0) 
error_exit(1); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2);  ' 

wcloseall(); 
example_3_2(); 


/* 


****************************** 


*************************************  ***^/ 


void  example_3_2(void) 

{ 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 

spawnl(P_WAIT,"ex3_2.exe",NULL); 

srestore(scm); 

definition_3_2(); 


} 
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y** ************************************************************ *********/ 

void  definition_3_2(void) 

{ 

y****** *************************************************** ********y 

/*  attach  [Pageup]  to  the  example_3_2  function  */ 
setonkey(0x4900JPex_3_2,0); 

y******  *************************************************** *******y 

/*  attach  [Pagedown]  to  the  flgure_3_6  function  */ 
setonkey(0x5 100,Pfig_3_6,0); 

y*********** *****************************************************y 

if((w[l]=wopen(2,3,8,72,3,LCYANI_GREEN,WHITELGREEN))==0) 

error_exit(l); 

wtitle("[Graph  Representations  -  Definition_3_2] ",TCENTER ,_LGRE YIBROWN); 
whelpcat(H_WINTlTLE); 

wputsw("  Def :  Let  G  =  (V,  E)  be  a  graph.  Let  U,  T  be  the  vertices." 

"  The  degree  of  T,  denoted  deg(T),  is  the  number  of  edges  incident" 

"  to  T.  In  the  following  figure  we  see  that  deg(A)  =  1,  deg(B)  =  3," 

"  anddeg(C)  =  0."); 
following_fig2(); 

} 

y***********************************************************************y 

void  following_fig2(void) 

{ 

y* *********************** ********** ******** *********************y 

/*  attach  [Pageup]  to  the  example_3_2  function  */ 
setonkey(0x4900,Pex_3_2,0); 

y***************************************************************y 

/*  attach  [Pagedown]  to  the  definition_3_3  function  */ 
setonkey(0x5 100,Pdef_3_3,0); 


y***************************************************************y 


if((w[l]=wopen(20, 42,24, 77, 3^CYANI_MAGENTA,WHITELMAGENTA))==0) 


error_exit(l); 
whelpcat(H_WIN‘I  TTLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseO; 
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figure_3_6(); 


/***********************************************************************/ 


void  figure_3_6(void) 

{ 


register  int  *scm; 

if((scm=ssave())— NULL)  error_exit(3); 

spawnl(P_WAIT,"fig3_6.exe",NULL); 

srestore(scm); 

definition_3_3(); 


/** ***********4^**^******************** ***************** ****************/ 


void  defmition_3_3(void) 

{ 


/*****************************************************************/ 


/*  attach  [Pageup]  to  the  figure_3_6  function  */ 
setonkey(0x4900,Pfig_3_6,0); 


/*****************************************************************/ 


/*  attach  [Pagedown]  to  the  figure_3_7  function  */ 
setonkey(0x5 100,Pfig_3_7,0); 


H c*****:*.**********************************************************/ 


if((w[2]=wopen(10,3,16,72,3,LCYANI_GREEN,WHITELGREEN))==0) 

eiTor_exit(l); 

wtitle("[Graph  Representations  -  Defuiition_3_3]"»TCENTER,_LGREYIBROWN); 
whelpcat(H_WINl  I'l'LE) ; 

wputsw("  Def :  One  special  graph  that  is  encountered  frequently  is  the" 

"  complete  graph  on  n  vertices,  where  every  vertex  is  connected" 

"  to  every  other  vertex.  This  graph  is  denoted  by  Kn.  The  following" 

"  figure  shows  K3  and  K4."); 
following_fig3(); 

} 
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/***********************************************************************/ 
void  following_fig3(void) 

{ 


/************** ****************************************** 


/*  attach  [Pageup]  to  the  figurc_3_6  function  */ 
setonkey(0x4900,Pfig_3_6,0); 


/*  attach  [Pagedown]  to  the  cont2_grep  function  */ 
setonkey(0x5 100,Pcont2_grep,0); 


if((w[l]=wopen(20,42,24,77,3JXYANI_GREEN,WHTTELGREEN))==0) 

error_exit(l); 

whelpcat(H_WINTITLE); 


wputsw("Press  a  key  to  see  the  graph...."); 

press_a_key(2); 

wclose(); 

figure_3_7(); 


) 


^***********************************************************************^ 


void  figure_3_7(void) 

{ 


register  int  *scm; 

if((scrn=ssave())==NULL)  error_exit(3); 

spawnl(P_WAIT,"fig3_7.exe",NULL); 

srestore(scm); 

cont2_grep(); 
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/****************************************************** ******* **** ******  I 


void  cont2_grep() 

{ 

^****************************************  ************************ ^ 

/*  attach  [Pageup]  to  the  figure_3_7  function  */ 
setonkey(0x4900,Pfig_3_7,0); 

^***********************4t********************* ********* **********/ 

/*  attach  [Pagedown]  to  the  theorem_3_l  function  */ 
setonkey  (0x5 1 00,Pthm_3_  1 ,0) ; 

!****************************************************************! 

if((w[3]=wopen(  18, 3, 24,72,3, WHrTEt_MAGENTA,WHITELMAGENTA))==0) 
enx>r_exit(l); 
whelpcat(H_WINTTTLE); 

wputsw("In  those  figures  notice  that  adding  the  degrees  of  the" 

"  vertices  in  each  graph  yields  a  number  that  is  twice" 

"  the  number  of  edges.  This  res  it  is  true  in  general."); 
press_a_key(4); 
wcloseall(); 
theorem_3_l(); 

} 

^*** ********************************************************************  ^ 
void  theorem_3_l(void) 

{ 

^************************************************ *************** I 

/*  attach  [Pageup]  to  the  coni2_grep  function  */ 
setonkey(0x4900,Pcont2_grep,0); 

^* ****************************************************** ******,My 

/*  attach  [Pagedown]  to  the  matrix_rep  function  */ 
setonkey(0x5 100,Pmatrix_rep,0); 

/★***************★*************+********************************/ 
if((w[  1  ]=wopen(2,4,6,7 1 ,3,LCYAN!_GREEN,WHITELLGREY))==0) 
error_exit(l); 

wtitle("[Graph  Representations  -  Theorem_3_l]", 

TCENTER,_MAGENTAIWH1TE); 

whelpcat(H_WINTITLE); 
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wputs('NnTheorem_3_l\n"); 

wputsw  ("In  a  graph  the  sum  of  the  degrees  of  the  vertices  equals  " 

"twice  the  number  of  edges."); 
delay_(20); 

if((w[2]=wopen(6,4, 1 5,7 1 ,3JLCYANI_RED,WHITEI_GREEN))=0)  error_exit(  1 ); 
wtitle("[Theorem_3_l  -  Proof]",TCENTER,_MAGENTAIWHITE); 
whelpcat(H_WINTITLE); 

wputsw  ("  The  key  to  understanding  why  Theorem  3.1  is  true  is  that " 

"  each  edge  is  incident  on  two  vertices.  When  we  take  the" 

"  sum  of  the  degrees  of  the  vertices,  each  edge  is  counted" 

"  twice  in  this  sum.  Thus,  the  sum  of  the  degrees  is  twice" 

"  the  number  of  the  edges."); 
press_a_key(7); 
wclose(); 
wclose(); 
matrix_rep(); 

) 


void  matrix_rep(void) 

l 


/ft**************************************************************/ 

/*  attach  [Pageup]  to  the  theorem_3_l  function  */ 
setonkey(0x4900,Pthm_3_l  ,0); 

/*********************************** ****************** **********^ 
/*  attach  [Pagedown]  to  the  example_3_4  function  */ 
setonkey(0x5 100,Pex_3_4  ;0); 

/********* '******************************************************/ 


if((w[l]=wopen(3,4,14,71,3,LCYANI_GREEN,WHITELLGREY))==0) 

error_exit(l); 

wtit!e("[Matrix  Representations]",TCENTER,_MAGENTAIWHITE); 
whelpcat(H_WINTITLE); 

wputswf’It  is  often  necessary  to  analyze  graphs  and  perform  a  variety" 

"  of  procedures  and  algorithms  upon  them.  When  they  have  large" 
"  numbers  of  vertices  and  edges,  it  is  often  essential  to  use" 

"  a  computer  to  perform  these  algorithms.  Thus,  it  is  necessary" 

"  to  communicate  to  the  computer  the  vertices  and  edges  of  a" 
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"  graph.  One  way  to  do  so  is  to  represent  a  graph  by  means  of' 

"  numbers,  which  are  easy  to  store  and  manipulate .\n  An  m  x  n" 
"  matrix  is  rectangular  array  of  numbers  in  which  there  are  m" 

"  horizontal  rows  and  n  vertical  columns."); 
press_a_key(9); 
following_fig4(); 


} 


/*****************^*****************************************************/ 


void  following_fig4(void) 

{ 


/******** ******************************************************** J 


/*  attach  [Pageup]  to  the  matrix_rep  function  */ 
setonkey(0x4900,Pmatrix_rep,0); 


/****************************************************************! 


/*  attach  [Pagedown]  to  the  example_3_3  function  */ 
setonkey  (0x5 1 00,Pex_3_3 ,0) ; 


/****************************************************************! 


if((w[3]=wopen(20,42,24,77,3,MAGENTAI_CYAN?WHITELCYAN))==0) 
error_exit(l); 
whelpcat(H_WINTITL£); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseall(); 
example_3_4(); 

) 


/***********************************************************************/ 


static  void  example_3_4(void) 

{ 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P_W  AIT, "ex3_4.exe", NULL); 
srestore(scm); 
example_3_3(); 


} 
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y***********************************************************************/ 

void  example_3_3(void) 

{ 


/***********************4^**********«****************************/ 


/*  attach  [Pageup]  to  the  example_3_4  function  */ 
setonkey(0x4900,Pex_3_4,0); 

/********  *******************************************************/ 


/*  attach  [Pagedown]  to  the  example_3_5  function  */ 
setonkey(0x5 100,Pex_3_5,0); 


/****************************************************************/ 


if((w[3]=wopen(9,4, 17,7 1 ,3,YELLOWI_BLUE,YELLOWI_BLUE))=0) 
error_exit(l); 
whelpcat(H_WINTITLE) ; 

wputsw("Two  matrices  A  and  B  are  said  to  be  equal  whenever  A  and  B" 

"  have  the  same  number  of  rows  and  the  same  number  of  columns," 
"  and  the  i,j  entry  of  A  is  equal  to  the  i,j  entry  of  B  for" 

"  all  possible  i  and  j.  In  other  words,  two  matrices  are  equal" 

"  when  they  have  the  same  size  and  all  pairs  of  corresponding" 

"  entries  are  equal."); 
following_fig5(); 


} 


/***********************************************************************/ 


void  following_fig5(void) 

{ 


/*****************************************************************/ 


/*  attach  [Pageup]  to  the  example_3_4  function  */ 
setonkey(0x4900,Pex_3_4,0); 

/****************************************************************/ 


/*  attach  [Pagedown]  to  the  cont_matrix_rep  function  */ 
setonkey(0x5 100,Pcont_matrix_rep,0); 


********************************************************* *****^ 


if((w[3]=wopen(20,42,24,77,3,GREENI_BROWN,YELLOWI_BROWN))==0) 
error_exit(l); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
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wcloseallQ; 

example_3_5(); 


/***********************************************************************y 


void  example_3_5(void) 

{ 


register  int  *scm; 

if((scm=ssaveO)=NULL)  error_exit(3); 
spawnl(P_WAIT, "ex3_5.exe"  J'JULL); 
srestorc(scm); 
cont_matrix_rep(); 


} 


/***********************************************************************/ 


void  cont_matrix_rep(void) 

{ 


/****************************************************************/ 


/*  attach  [Pageup]  to  the  example_3_5  function  */ 
setonkey(0x4900,Pex_3_5,0); 

/♦♦♦if************************************************************/ 


/*  attach  [Pagedown]  to  the  example_3_6  function  */ 
setonkey(0x5 1 00,Pex_3_6,0); 


/♦I***************************************************************/ 


if((w[2]=wopen(8,4,16,71,3,LCYANI_GREHN,WHITELLGREY))==0) 

error_exit(l); 

wtitle("[Labeled  Graph  and  Adjacency  Matrix] ",TCENTER,_MAGENTAIWHITE); 
whelpcat(H_WINTn'LE); 

wputsw("Suppose  we  have  a  graph  G  with  n  vertices  labeled  VI,  V2," 

"  ...,Vn.  Such  a  graph  is  called  a  labeled  graph.  To  represent” 

"  the  labeled  graph  G  by  a  matrix,  we  form  an  n  x  n  matrix  in" 

"  which  the  i  j  element  is  1  if  there  is  an  edge  between  the" 

"  vertices  Vi  and  Vj  and  0  if  there  is  not.  This  matrix  is  called" 

"  the  adjacency  matrix  of  G  (with  respect  to  the  labeling)  and  is" 

"  denoted  by  A(G)."); 
press_a_key(6); 
following_fig6(); 

} 
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/***********************************************************************/ 


void  following_fig6(void) 

{ 


/***************************************************************/ 


/*  attach  [Pageup]  to  the  cont_matrix_rep  function  */ 
setonkey(0x4900,Pcont_matrix_rep,0); 


I**************************************************************/ 


/*  attach  [Pagedown]  to  the  theorem_3_2  function  */ 
setonkey(0x5 100,Pthm_3_2,0); 


/**************************************************************/ 


if((w[3]=wopen(20,42,24,77,3,MAGENTAt_LGREY,WHITELLGREY))==0) 
error_exit(l); 
whelpcat(H_WINTlTLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseaIl(); 
example_3_6(); 

} 


/***********************************************************************/ 


void  example_3_6(void) 

{ 

register  int  *scm; 

if((scm=ssave())= NULL)  error_exit(3); 

spawnl(P_WAIT,"ex3_6.exe",NULL); 

srestore(scm); 

theorem_3_2(); 


} 
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/*************4^**4^4^*********** ********************************** *****/ 

void  theorem_3_2(void) 


/***************************************************************/ 
/*  attach  [PageUp]  to  the  example_3_6  function  */ 
setonkey(0x4900,Pex_3_6,0); 

1+*+++++*******++++*+*******++*++++***+***+*+*+***++*+*++****++*/ 
/*  attach  [Pagedown]  to  the  adjacency_list  function  */ 
setonkey(0x5 100,Padj_list,0); 

/***************************************************************/ 


if((w[  1  ]=wopen(3,4,8,7 1 ,3,LCYANI  JjREEN,WHITELLGREY))==0) 
error_exit(l); 

wtitle("[Graph  Representations  -  Theorem_3_2]”, 
TCENTER,_MAGENTAI  WHITE); 
whelpcat(H_WINTl'l  LE); 
wputs("\nTheorem_3_2\n"); 

wputsw("  The  sum  of  the  entries  in  row  i  of  the  adjacency  matrix  of' 

"  \n  a  graph  is  the  degree  of  the  vertex  Vi  in  the  graph. "); 

delay_(20); 

if((w[2]=wopen(10,4,17,71,3,LCYANLRED,WHITELGREEN))==0) 

error_exit(l); 

wtitle("[Theorem_3_2  -  Proof]", TCENTER,_MAGENTAIWHITE); 

whelpcat(H_WIN'UlLE) ; 

wputs(’V'); 

wputsw("  We  recall  that  each  1  in  row  i  corresponds  to  an  edge  on  the" 
"\n  vertex  Vi.  Thus  the  number  of  1  ’s  in  row  i  is  the  number  of' 


"\n  edges  on  Vi,  which  is  the  degree  of  Vi."); 
press_a_key(5); 
wclose(); 
wclose(); 
adjacency_list(); 

} 
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1^**********************************************************************/ 


static  void  adjacency_Iist(void) 

{ 


/***************************************************************/ 


/*  attach  [Pageup]  to  the  theorem_3_2  function  */ 
setonkey(0x4900JPthm_3_2,0); 


/***************************************************************/ 


/*  attach  [Pagedown]  to  the  example_3_7  function  */ 
setonkey(0x5 100,Pex_3_7,0); 

/** *************************************************************/ 


if((w[l]=wopen(3,4,15,40,3,LCYANLREDtWHnELGREEN))=0)error_exit(l); 
wtitle("[Adjacency  List]",TCENTER,_MAGENTAIWHITE); 
whelpcat(H_WINTTTLE); 

wputsw("Matrices  are  not  the  only  way  to  represent  graphs  in  a  computer." 

"  Although  an  adjacency  matrix  is  easy  to  construct,  this  form" 

"  of  representation  requires  more  storage  for  a  graph  with  n" 

"  vertices  and  can  be  quite  inefficient  if  the  matrix  contains" 

"  lots  of  zeros."); 
wslide(  12,40); 
wslide(3,4); 
press_a_key(10); 

if((w[2]=wopen(l,42,20,74,3,LREDI_CYAN,WHITEI_CYAN))==0)  error_exit(l); 
wtitle("[Adjacency  List]  ",TCENTER,_MAGENTAI  WHITE); 
whelpcat(H_WINTTTLE) ; 

wputsw("A  better  representation  for  such  a  matrix  is  an  adjacency  list" 

"  The  basic  idea  of  an  adjacency  list  is  to  list  each  vertex" 

"  followed  by  the  vertices  adjacent  to  it.  To  form  the  adjacency" 

"  list,  we  begin  by  labeling  the  vertices  of  the  graph  G.  Then  we" 

"  list  the  vertices  in  a  vertical  column,  and  after  each  one  we" 

"  write  down  the  adjacent  vertices.  Thus  we  see  that  the  1  ’s  in" 

"  a  row  of  an  adjacency  matrix  tell  what  vertices  are  listed  in" 

"  the  corresponding  row  of  an  adjacency  list."); 


wslide(6,2); 

wslide(2,42); 

following_fig7(); 


} 
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/**************************** '*******************************************/ 
void  following_fig7(void) 

{ 

/I***************************************************************/ 

/*  attach  [Pageup]  to  the  adjacency_list  junction  */ 
setonkey(0x4900,Padj_list,0); 

/****************************************************************/ 

/*  attach  [Pagedown]  to  the  matrix_ops  function  */ 
setonkey(0x5 100,Pmatrix_ops,0); 

/****************************************************************/ 

if((w[3]=wopen(20, 42,24, 77, 3,MAGENTAI_BLUE,WHITELBLUE))=0) 
error_exit(l); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  the  graph....*’); 
press_a_key(2); 
wcloseallO; 
example_3_7(); 


/***********************************************************************/ 
static  void  example_3_7(void) 

{ 

register  int  *scm; 

if((scrn=ssave())=NULL)  error_exit(3); 

spawnl(P_WArT,"ex3_7.exe",NULL); 

srestore(scm); 

matrix_ops(); 

} 

^*****lf:*****************************************************************y 

static  void  matrix_ops(void) 

( 

/****^*************************** **************** *****************/ 

/*  attach  [Pageup]  to  the  example_3_7  function  */ 
setonkey  (0x4900, Pex_3_7 ,0) ; 

/*****************************************************************/ 

/*  attach  [Pagedown]  to  the  example_3_8  function  */ 
setonkey(0x5 100,Pex_3_8,0); 
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definition_3_4();  /*  addition  */ 


I***********************************************************************/ 

static  void  definition_3_4(void) 

{ 

/*****************************************************************/ 

/*  attach  [PageUp]  to  the  example_3_7  function  */ 
setonkey(0x4900,Pex_3_7,0); 

/** *************************************************************** j 

/*  attach  [Pagedown]  to  the  example_3_8  function  */ 
setonkey(0x5 100,Pex_3_8,0); 

/*****************************************************************! 

if((w[l]=wopen(3,4,l  1,73,3, LCYANI_RED,WHITEI_GREEN))==0)  error_exit(l); 
wtitle("[Addition  of  Matrices]  ",TCENTER,_MAGENTAI WHITE); 
whelpcat(H_WINTn'LE) ; 

wputsw("Suppose  A  and  B  are  two  m  x  n  matrices.  The  sum  of  A  and  B," 

"  denoted  by  A  +  B,  is  the  m  x  n  matrix  in  which  the  i,j  entry" 

"  of  A  +  B  is  the  sum  of  the  i,j  entry  of  A  and  the  i,j  entry" 

"  of  B.  In  other  words,  we  add  two  matrices  of  the  same  size" 

"  by  adding  together  the  corresponding  entries.  Thus,  only" 

"  matrices  of  the  same  size  can  be  added."); 
press_a_key(6); 
following_fig8(); 

} 

j*  **********************************************************************  I 

void  following_fig8(void) 


I******* ********************************************************* ^ 

/*  attach  [Pageup]  to  the  matrix_ops  function  */ 
setonkey(0x4900,Pmatrix_ops,0); 

I****************************************************************/ 

/*  attach  [Pagedown]  to  the  definition_3_5  function  */ 
setonkey(0x5 100,Pdef_3_5,0); 

!****************************************************************! 
if((w[l]=wopen(20,42,24,77,3,MAGENTAI_MAGENTA, 
WHITEI_MAGENTA))==0)  error_exit(l); 
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whelpcat(H_WINnTLE); 

wputsw("Press  a  key  to  see  the  graph...."); 

press_a_key(2); 

wcloseall(); 

example_3_8(); 

} 


/t**********************************************************************/ 


static  void  example_3_8(void) 

{ 


register  int  *scm; 

if((scm=ssave())=NULL)  eiror_exit(3); 

spawnl(P_WAIT,"ex3_8.exe",NULL); 

srestore(scm); 

definition_3_5();  /*  multiplication  */ 


} 


/*********************************:^************************************/ 


static  void  definition_3_5(void) 


{ 


/*  *  *  *  *  *  *  *  4c  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  4c  *  4c  *  *  *  *  *  *  *  *  *  *  *  %  *  *  *  *  *  *  *j 


/*  attach  [Pageup]  to  the  example_3_8  function  */ 
setonkey(0x4900,Pex_3_8,0); 


j* <***************************************************************/ 


/*  attach  [Pagedown]  to  the  example_3_9  function  */ 
setonkey(0x5 1 00,Pex_3_9,0); 

/***************************************************************y 


if((w[  l]=wopen(l  1,4,20, 73,3, LCYANLRED,WHITEI_GREEN))==0) 
error_exit(l); 

wtitle( " [Multiplication  of  Matrices] ",TCENTER,_MAGENTAI WHITE); 
whelpcat(H_WINTITLE); 

wputsw("Suppose  A  is  an  m  x  k  matrix  with  the  i  j  entry  represented" 

"  by  aij  and  B  is  a  k  x  n  matrix  with  the  i,j  entry  represented" 

"  by  bij.  Then  the  product  of  A  and  B,  denoted  by  AB,  is  the" 

"  m  x  n  matrix  where  the  ij  entry  is  given  by\n" 

"  ailblj  +  al2b2j  +  ...  +  aikhkj." 

"\nNote  that  the  number  of  columns  of  A  is  required  to  be  equal" 
"  to  the  number  of  rows  of  B  in  order  to  multiply  A  and  B."); 
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press_a_key(7); 

following_fig9(); 


} 

void  foIIowing_fig9(void) 

{ 


/*  ^*********4^***** ************************************ **********/ 


/*  attach  [Pageup]  to  the  defmition_3_5  function  */ 
setonkey(0x4900,Pdef_3_5,0); 


/*****************************************************************/ 


/*  attach  [Pagedown]  to  the  exercise  1  function  */ 
setonkey(0x5 1 00,Pexercise  1 ,0); 


/*****************************************************************/ 


if((w[3]=wopen(20,42, 24,77, 3,MAGENTAI_GREEN,WHITELGREEN))==0) 
error_exit(l); 
whelpcat(H_WINTiTLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
prcss_a_key(2); 
wcloseallO; 

example_3_9(); 

} 


/***********************************************************************/ 


static  void  example_3_9(void) 

{ 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P_W  AIT,  "ex3_9.exe", NULL); 
srestore(scm); 
exercise  1(); 


} 
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/***********************************************************************/ 
void  exercise  1  (void) 


register  int  *scm; 

/******************************************************************| 


/*  attach  [Pageup]  to  the  example_3_9  function  */ 
setonkey(0x4900,Pex_3_9,0 ); 


/*****************************************************************/ 


/*  attach  [Pagedown]  to  the  exercise2  function  */ 
setonkey(0x5 100,Pexercise2,0); 


/*****************************************************************^ 


if((scm=ssaveO)=NULL)  error_exit(3); 

if((w[  1  ]=wopen(20,42,24,77,3,MAGENTAI_BLUE,WHITELBLUE))==0) 
error_exit(l); 
whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  some  exercises..."); 
press_a_key(2); 
wcloseall(); 

spawnl(P_WAIT,"ql  .exe",NULL); 

srestore(scm); 

exercise2(); 


} 


^* ************* *************** ********* *********************************/ 


void  exercise2(void) 

{ 


register  int  *scm; 

/************************ ********************** *******************/ 
/*  attach  [Pageup]  to  the  exercise  1  function  */ 
setonkey(0x4900,Pexercise  1 ,0); 

y*  ************************ **************************** ************/ 

/*  attach  [Pagedown]  to  the  exercise3  function  */ 
setonkey(0x5 100,Pexercise3,0); 

/*****************************************************************/ 


if((scm=ssaveO)=NULL)  eiror_exit(3); 

if((w[  1  ]=wopen(20, 42, 24,77, 3,MAGENTAI_BLUE,WHITELBLUE))==0) 
error_exit(l); 
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whelpcat(H_WINTITLE); 
wputsw(’’Now  let  us  see  exercise  2.."); 
p*e$s_a_key(2); 
wcloseall(); 

spawnl(P_WAIT,  "q2.exe", NULL) ; 

srestore(scrn); 

exercise30; 

} 

y******* ********************************************* *******************y 

void  exercise3(void) 

{ 

register  int  *scm; 

y* ************************* ************************************ ***y 

/*  attach  [Pageup]  to  the  exercise2  function  */ 
setonkey(0x4900,Pexercise2,0); 

/*  ************ ****************************************************/ 

/*  attach  [Pagedown]  to  the  exercise4  function  */ 
setonkey(0x5 100,Pexercise4,0); 

y* *********************************************************** *****y 

if((scm=ssave())=NULL)  error_exit(3); 

if((w[l]=wopen(20,42,24,77,3,MAGENTAI_BLUE,WHITEI_BLUE))==0) 
error_exit(l); 
whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  exercise  3.."); 
press_a_key(2); 
wcloseallO; 

spawnl(P_WAIT  ”q3.exe",NULL); 
srestore(scm); 
exercise4(); 

} 

y***********************************************************************y 

void  exercise4(void) 

{ 

register  int  *scm; 

y*  **************************************** ************************/ 

/*  attach  [Pageup]  to  the  exercise3  function  */ 
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setonkey(0x4900,Pexercise3,0); 

/************************************* -^4**,.  ****************  ******/ 

/*  attach  [Pagedown]  to  the  exercise5  function  */ 
setonkey(0x5 100,Pexercise5,0); 

^/*  *************************** ******* 4 ***************«***********y 

if((scrn=ssave())==NULL)  error_exit(3); 

if((w[l]=wopen(20, 42,24, 77,3,MAGENTALBLUE>WHITEI_BLUE))==0) 
error_exit(l); 
whelpcat(H_WINTITLE); 
wputswf'Now  let  us  see  exercise  4.."); 
press_a_key(2), 
wcloseall(); 

spawnl(P_WAIT,  "q4.exe", NULL); 
srestore(scm); 
exercise5(); 

} 

y***********************************************************************^ 

void  exercise5(void) 

{ 

register  int  *scm; 

^*****************************************************************^ 

/*  attach  [Pageup]  to  the  exercise4  function  */ 
setonkey  (Ox4900,Pexercise4,0) ; 

/****************************************************************/ 

/*  attach  [Pagedown]  to  the  exercise5  function  */ 
setonkey(0x5 100,Pexercise5,0); 

^****************************************************************^ 
if((scm=ssave())==NULL)  error_exit(3); 

if((w[  1  ]=wopen(20,42,24,77,3,MAGENTAI_BLUE,WHrrEI_BLUE))==0) 
error_exit(l); 
whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  exercise  5.."); 
press_a_key(2); 
wcloseallO; 

spawnl(P_WAIT,"q5.exe",NULL); 

srestore(scm); 
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normal_exit(); 

} 

/***********************************************************************/ 
/*  this  routine  that  calls  definition_3_l  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y*********^************************************************************/ 

void  Pdef_3_l() 

{ 


wcloseall(); 

definition_3_l(); 


) 

y***********^.******************************************** ************** 

/*  this  routine  calls  graph_rep  routine  whenever  Pageup  key  is  pressed.  */ 

/***********************************************************************/ 


void  Pgraph_rep() 

{ 


wcloseall(); 

graph_rep(); 


} 

/***********************************************************************/ 
/*  this  routine  calls  example_3_2  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 


void  Pex_3_2() 

{ 


wcloseall(); 

following_figl(); 


) 

/***********************************************************************/ 
/*  this  routine  calls  definition_3_2  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y***********************************************************************^ 


void  Pdef_3_2() 

{ 

wcloseall(); 
definition_3_2(); } 
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/***********************************************************************/ 

/*  this  routine  calls  figure_3_6  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  axe  pressed.  */ 

/***********************************************************************! 

void  Pfig_3_6() 

{ 

wcloseallQ; 

following_fig2(); 

} 

^*  *************************  *******************  *********  *****************/ 

/*  this  routine  calls  figure_3_7  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^********************************************* ********************** ****^ 

void  Pfig_3_7() 

{ 

wcloseallO; 

following_fig3(); 

} 

j***** ****************************************************************** ^ 

/*  this  routine  calls  definition_3_3  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

j*********************************************** ******************* *****/ 

void  Pdef_3_3() 

{ 

wcloseall(); 

definition_3_3(); 

} 

!***********************************************************************! 

/*  this  routine  calls  theorem_3_l  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

I*********************************************************************** ^ 

void  Pthm_3_l() 

{ 

wcloseallO; 

theorem_3_l(); 

) 
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/***********************************************************************/ 
/*  this  routine  calls  matrix_rep  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/*****4^****************************************************************/ 

void  Pmatrix_repO 

{ 

wcloseall(); 

matrix_rep(); 

} 

yT******************************************************4^***************yf 

/*  this  routine  calls  cont_matrix_rep  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 
void  Pcont_matrix_rep() 

{ 

wcloseall(); 

cont_matrix_rep(); 


/************************************************************ ***********y 

/*  this  routine  calls  example_3_3  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 
void  Pex_3_3() 

{ 

wcloseallO; 

example_3_3(); 

} 

/***********************************************************************/ 
/*  this  routine  calls  example_3_4  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 
void  Pex_3_4() 

{ 

wcloseallO; 

following_fig4(); 

} 


49 


/***********************************************************************/ 

/*  this  routine  calls  example_3_5  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 

void  Pex_3_5() 


{ 


wcloseallO; 

following_fig5(); 


} 


/*** c************** ******************************************** **********/ 

/*  this  routine  calls  example_3_6  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/I************************** ****************** ******** *******************/ 

void  Pex_3_6() 


{ 


wcloseallO; 

following_fig6(); 


} 


/***********************************************************************/ 

/*  this  routine  calls  example_3_7  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 

void  Pex_3_7() 

{ 

wcloseallO; 
following_fig7  (); 

} 

/***********************************************************************/ 

/*  this  routine  calls  example_3._8  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 

void  Pex_3_8() 

{ 

wcloseallO; 

following_fig8(); 

} 
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/***********************************************************************/ 

/*  this  routine  calls  example_3_9  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 

void  Pex_3_9() 

{ 

wcloseallO; 

following_fig9(); 

} 

/***** ******************************************************************/ 

/*  this  routine  calls  theorem_3_2  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/*******************************************^$**************************/ 

void  Pthm_3_2() 

{ 

wcloseallO; 

theorem_3_2(); 


^* ************************************************************** ********/ 

/*  this  routine  calls  adjacencyjist  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/************************.,<**********************************************/ 

void  Padj_listO 

{ 

wcloseallO; 

adjacency_list(); 

} 

/***********************************************************************/ 

/*  this  routine  calls  matrix_ops  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 

void  Pmatrix_ops() 

{ 

wcloseallO; 

matrix_ops(); 

} 
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/***********************************************************************/ 

/*  this  routine  calls  definition_3_4  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 

void  Pdef_3_4() 

{ 

wcloseallO; 

definition_3_4(); 

} 

^***********************************************************************y 

/*  this  routine  calls  defxnition_3_5  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/* ************************ ********************************************* *y 

void  Pdef_3_5() 

{ 

wcloseallO; 

definition_3_5(); 

} 

/***********************************************************************/ 

/*  this  routine  calls  exercise  1  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/*********************** ******************************************* *****/ 

void  PexerciselO 

[ 

wcloseallO; 

exerciselO; 

} 

^***********************************************************************y 

/*  this  routine  calls  exercise2  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/* **************************************************************** ******/ 

void  Pexercise2() 

{ 

wcloseallO; 

exercise2(); 

} 
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/***********************************************************************/ 

l*  this  routine  calls  exercise3  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/*****************************************^*****************************/ 

void  Pexercise3() 

{ 

wcloseallO; 

exercise3(); 

} 

/*****************************^****************************************/ 

/*  this  routine  calls  exercise4  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^***********************************:|^*********************************:ty 

void  Pexercise4() 

{ 

wcloseallO; 

exercise4(); 

) 

/***********************************************************************/ 

/*  this  routine  calls  exercise5  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/***********************************************************************/ 


void  Pexercise5() 

{ 

wcloseallO; 

exercise5(); 


} 

y***********************************************************************/ 

/*  this  routine  calls  cont_grep  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^**********************************************************************:iy 


void  Pcont_grep() 

{ 

wcloseallO; 

cont_grep(); 

} 
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/***********************************************************************/ 
/*  this  routine  calls  cont2_grep  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

I**** ************************************************************** *****^ 

void  Pcont2_grep() 

{ 


wcloseall(); 

cont2_grep(); 

} 
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/*  PROGRAM  :  ex3_2.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 
REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxiuef.h" 
include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


/*********************************************************************** 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


******************************>M  ******* *******************************/ 


static  int  *savescm,crow,ccol; 
char  adapt,  Ch; 
int  color  =  2; 
int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 
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/****’ ***************************************************************** 
FUNCTION  DEFINITIONS 

*********************************************************************/ 


void  wait(char  titleQ); 

static  void  example_3_2  (void); 

static  void  fig_3_3  (void); 

static  void  confirm_graph_exit(void); 

static  void  normal_exit(void); 

^T********  ***************************************** 

MAIN  PROGRAM 


**************************************************/ 

main() 

{ 

els  (1); 

adapt  =  getAdapter(); 

if  (adapt  = ’V’){ 
setModet0xI2); 
cls(l); 

) 

if  (adapt  ==  ’E’){ 
setMode(16); 
cls(l); 

} 

if  (adapt  ==  ’C’){ 
setMode(4); 
setCGAPalette(O); 
cls(l); 

} 

example_3_2(); 

fig_3_3(); 

setMode(3); 


} 
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/**********************************************************************/ 


static  void  example_3_2(void) 

{ 


LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,210,310,-200,l  1); 
drawUne(- 150,100, 150, 100,1 1); 
drawLine(150, 100,- 150,- 100, 1 1); 
drawLine(- 1 50,- 100, 1 50,-100, 11); 
aspect  =  1.0; 

fillOval(- 1 50, 100,2, 1 6, aspect); 
fillOval( 1 50, 1 00,2, 1 6,aspect) ; 
fillOval(- 1 50,- 1 00,2, 1 6, aspect); 
fillOval(l  50,- 1 00,2, 1 6, aspect); 
write_horz_char(- 160, 105,65,3 1 ); 
writ^Jiorz  char(160,105,66,31); 
write_horz_char(- 1 60,- 105,67,3 1 ); 
write_horz_char( 1 60,- 1 05,68 , 31); 

write_horz_str(-160,-145,"  A  graph  with  vertices  A,  B,  C,  and  D",31); 
write_horz_str(-160,-165,"  and  edges  {A,B},  {B,  C},and  {C,  D)",31); 
wait(""); 


} 


^************************************************************** ******* ^ 


static  void  fig_3_3(void) 

{ 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,210, 310, -200,1 1); 
drawLine(-150,100, 150,100,1 1); 
drawLine( 1 50, 100,- 1 50,0, 11); 
drawLine(- 1 50,0, 1 50,0, 1 1 ); 
drawLine( 1 50,0,- 1 50,- 1 00, 1 1 ); 
drawLine(- 1 50,- 1 00, 1 50,- 1 00, 1 1 ); 
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aspect  =  1.0; 

fillOval(- 1 50, 100,2, 1 6, aspect); 
fillOval( 1 50, 1 00,2, 1 6,aspect); 
fillOval(- 1 50,0,2, 1 6,aspect); 
fillOval(  1 50,0,2, 1 6,aspect) ; 
ftllOval(- 150,- 100,2, 16,aspect); 
fillOval( 1 50,- 1 00,2, 1 6,aspect); 
write_horz_char(-160, 100,65,31);  /*  A  */ 

write_horz_char(  155, 100,68,3 1 );  /*  D  */ 

write_horz_char(- 1 60,0,66,3 1 ) ;  /*  B  */ 

write_horz_char(l 55,0,69,31);  /*  E  */ 

write_horz_char(-160,-100,67,31);  /*  c  */ 

write_horz_char( 1 55,- 1 00,70,3 1 );  /*  F  */ 

write_horz_str(-180,-145,"  A  graph  with  vertices  A,  B,  C,  D,E  and  F",31); 
write_horz_str(-180,-165,"  and  edges  (A,  D},  {B,  D),  {B,  E),{C,  E), 
and  {C,F}.",31); 

wait(""); 

} 


!******************************************************************+***/ 


void  wait(char  titlef]) 

{ 


int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  =  Ox  11)11  (mode  ==  0x12)) 
line  =  29; 


else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(utle,  WHITE  ,0) ; 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writStringC’Press  any  key  to  continue  WHITE,0); 
if(waitkey()=ESC)  confirm _graph_exit(); 
cls(0); 
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/*********************************************************=«************/ 
static  void  confirm_graph_cxit(void) 

( 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(- 300, -210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  y )  II  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(30,-2 10,"  Please  type  y  cr  n",79); 
ch  =  getch  (); 

write_horz_str(  30,-2 10,"  ",31); 

} 

switch  (ch)  { 
case  ’y’-  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y*:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 


case  ’n’:write_horz_str(-3(X),-210," 
break; 

case  ’N’:write_horz_str(-300,-210," 
break; 

default :  break; 


} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


”31); 

"3D; 


} 
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/**********************************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^************** ************************************************* *******/ 
static  void  normal_exit(void) 

[ 

sres  tore(savescm ) ; 
gotoxy_(cro  w  ,ccol ) ; 
if(_mouse)  mshidecur(); 
showcur(); 


T 


/♦PROGRAM  :  ex3_4.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 
REVISED  :Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dc-;.h> 

#inclu^e  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#indude  "cxlwin.h" 

/* ********************************************************************** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
****************************************** ****************** ***********/ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
static  int  *savescm,crow,ccol; 

) 


FUNCTION  DEFINITIONS 


void  wait(char  title  []); 

void  open_matrix_paren(int  xl,  int  yl,mt  x2,int  y2,int  color); 
static  void  example_3_4  (void); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 


/***************************************************** 


MAIN  PROGRAM 


****************************************** ***********y 


main() 

{ 

els  (1); 

adapt  =  gfcfAdapter(); 

if  (adapt  ==  ’V’){ 
setMode(0xl2); 
cls(l); 

} 

if  (adapt  ==  ’E’){ 
setMode(16); 
cls(l); } 

if  (adapt  ==  ’C’){ 
setMode(4); 
setCGAPalette(O); 
cls(l); } 

example_3_4(); 

setMode(3); 


) 


62 


^** ******************************************************************** ^ 


static  void  example_3_4(void) 

{ 

LINE  WIDTH  =  3; 


cls(l); 

drawRect(-309,210,3 10,-200, 1 1); 
open_matrix_paren(- 163,85, -100, 20,1 1); 
open_matrix_paren(60,85, 1 80,0, 11); 


write_horz_char(- 147,76,49,31);  (*  write  all  */ 
write_horz_char('  124,76,50,31);  /*  write  al2  */ 
write_horz_char(' 147,57,53,31);  /*  write  a21  */ 
write_horz_char(- 124,57,48,31);  /*  write  a22  */ 
write_horz_char(-147,38,54,31);  /*  write  a31  */ 
write__horz_char(-  124,38,55,31);  /*  write  a32  */ 


write_horz_char(88,76,49,3 1 ); 
write_horz_char(  1 2 1 ,76,50,3 1 ); 
write_horz_char(  1 54,76,49,3 1 ); 
write_horz_char(88,57,5 1 ,3 1); 
write_horz_char(  1 2 1 ,57,52,3 1 ); 
write_horz_char(  1 54,57,48,3 1 ); 
write_horz_char(88,38,53,3 1 ); 
write_horz_char(  12 1 ,38,56,3 1 ); 
write_horz_char(  1 54,38,49,3 1 ); 
write_horz_char(88, 1 9,55,3 1 ); 
write_horz_char(  1 2 1 , 19,56,3 1 ); 
write_horz_char(  1 54, 1 9,5 1 ,3 1 ); 


/*  write  bl  1  */ 
/*  write  bl2  */ 
/*  write  bl  3  */ 
/*  write  b21  */ 
/*  write  b22  */ 
/*  write  b23  */ 
/*  write  b31  */ 
/*  write  b32  */ 
/*  write  b33  */ 
/*  write  b41  */ 
/*  write  b42  */ 
/*  write  b43  */ 


write_horz_char(- 195,57,65,3 1 );  /*  write  A  */ 
write_horz_char(- 180,57,61 ,3 1);  /*  write  =  */ 
write_horz_char(30,50,66,31);  /*  write  B  */ 

write_horz_char(40,50,61,31);  /*  write  =  */ 

write_horz_str(-300,155,'’  Array  A  below  is  a  3  x  2  matrix" 

"  because  there  are  3  horizontal  rows  and",31); 
write_horz_str(-300,140,"  2  vertical  columns  of  numbers." 

"  In  the  same  way,  B  is  a  4  x  3  matrix.", 31); 
write_horz_str(-300,-30,"  The  number  in  the  ith  row  and" 

"  jth  column  is  called  the  i,j  entry  of  the",31); 
write_horz_str(-300,-45,"  matrix.  Thus,  in  the  matrix  A  the  2,1" 

"  entry  is  5,  because  the  entry  Iying",31); 
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write_horz_str(- 300,-60,"  in  row  2  and  column  1  is  5.  For  matrix  B  the  3,2 
entry  is  9.",31); 

waitO"*); 


y* *********************************************************************/ 


void  open_matrix_paren(int  xl.int  yl,int  x2,int  y2,int  color) 

{ 


extern  unsigned  long  int  PATTERN; 
drawLine(xl  ,yl,xl+5,yl,color); 
drawLine  (xl  ,yl,xl,y2,color); 
drawLine  (xl  ,y2,xl+5,y2,color); 
drawLine  (x2  ,yl,x2-5,yl, color); 
drawLine  (x2  ,yl,x2,y2,color); 
drawLine  (x2,y2,x2-5,y2,color); 

} 

/**********************************************************************/ 
void  wait(char  title[]) 

{ 

int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x1 1)  II  (mode  ==  0x12)) 
line  =  29; 
else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxv(tab,0); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writString("Press  any  key  to  continue  WHITE,0); 
if(waitkey()==ESC)  confirm  _graph_exit(); 
cls(0); 
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p*********************************************************************/ 

static  void  confirm_graph_exit(void) 

( 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_tnouse&MS_CURS)  mshidecur(); 

write_horz_str(-300, -210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  ’y’ )  II  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31); 

) 

switch  (ch)  { 

case  y :  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ,n’;write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 

default :  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 
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/********************************************************************* *1 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


/**********************************************************************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

} 
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/*  PROGRAM  :  fig3_6.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 

REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  EBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h” 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

/*  ***%******************************:'<************%**%******** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
***+********************************************************/ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescrr.,crow,ccol; 
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♦I************************************************* 

FUNCTION  DEFINITIONS 

fc************************************************^ 


>  oid  wait(char  title[]); 
static  void  fig_3_6  (void); 
static  void  confirm_graph_exit(void); 
static  void  nonnal_exit(void); 


^^^ ********  ************************************** 
MAIN  PROGRAM 

♦  it************************************************/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(l); 

) 

if  (adapt  ==  ?C’) 

( 

setMode(4); 

setCGAPalette(O); 

cls(l); 

) 

fig_3_6(); 

sctMode(3); 
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/♦♦♦♦♦♦♦♦♦♦♦♦♦♦****»|c********J».*****1|.****3«t*******!<.**:t<!(«*.(11#.*************]|,J|,*3|r^ 

static  void  fig_3_6(void) 

{ 

LINE  WIDTH  =  3; 
cis(l); 

drawRcct(-309,2 1 0,3 1 0,-200, 11); 
drawLine(0,100, 0,-100,1 1); 
drawLine(0, 100,-150,-100, 1 1); 
drawLine(0, 1 00, 1 50,- 1 00, 1 1 ); 

aspect  =  1.0; 

filIOvaI(0, 1 00,3 , 1 6,aspect ) ; 
fillOva!  (0,- 1 00,3 , 1 6, aspect ); 
fill  Oval(- 150, -100, 3, 16, aspect); 
fillOval(150, -100, 3,16,  aspect); 
fiUOval(  1 80, 1 00,3 , 16, aspect); 

write_horz_char(165, 105,67,31 );  /*  point  c*/ 
write  _horz_char(0, 1 20,66,3 1 );  /*  point  B  */ 
write_horz_char(- 1 55 ,- 1 05 ,65 ,3 1 ) ;  /*  point  A  */ 
write_horz_char(155,-105,68,31);  /*  point  D  */ 
write_horz_cliar(-5,- 105,69,31);  /*  point  E  */ 

write_horz_str(-150,-130,”deg  (A)  =  1  deg  (B)  =  3  deg  (C)  =  0",31); 
wait(""); 


/************************  ft*  ****/ 

void  wait(char  title[]) 

I 

int  tab,width,line,mode; 
mode  =  getMode(&widtli); 
if  ((mode  ==  0x11)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
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gotoxy(tab.O); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy  (tab  .line); 

writStringC'Piess  any  key  to  continue  WHITE, 0); 

if(waitkey()=ESC)  confinn  _graph_exit(); 
cls(0); 

} 

y*  ******************************************************************* <***! 

static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?”,79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,”  Please  type  y  or  n”,79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ”,3l); 

) 

switch  (ch)  { 

case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ”,31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",3I); 

break; 
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default :  break; 

) 

if(_niouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


/***********************************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^iiiiiit******************************************************************^ 

static  void  noiiual_exit(void) 


srestore(savescm); 
gotoxy_(  crow  ,ccol ); 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 

I 
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/*  PROGRAM  :  fig3_7.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 

REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


/************************************************************ 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


***************************************** ** *********** *****/ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 


73 


/************************************************* 
FUNCTION  DEFINITIONS 

************! !■***********************************/ 


void  wait(char  titleQ); 
static  void  fig_3_7  (void); 
static,  void  confirmgraph_exit(void); 
static  void  normal_exit(void); 


/************************************************* 
MAIN  PROGRAM 

**********4^************************************/ 


main() 

( 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

] 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

] 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

) 

fig_3_7(); 

setMode(3); 


) 
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/********************+********++*WWMmmmmmmmm 

static  void  fig_3_7(void) 

{ 

LINEWID1H  =  3; 
cls(l); 

drawRect(-309,210,310, -200,1 1); 
drawRect( 10, 100,250,- 1 00, 1 1 ); 
drawLine(10,100, 250, -100,11);  /*  diagonals  of  */ 

drawLine(250, 1 00, 1 0,- 1 00, 1 1 );  /*  the  rectangle  *1 

drawLine(-105, 120,-190,-100,1 1);  /******************/ 
drawLine(-190, -100,-20,-100, 11);  f*  the  triangle  */ 
drawLine(-20,-100,-105,120,ll);  /******************/ 
aspect  =  1.0; 

fxllOval(  1 0, 1 00,3, 1 6, aspect); 
fillOval(250, 100,3, 16,aspect); 
filIOval(250,- 100,3, 16,aspect); 
fillOval(10,- 100,3, 16,  aspect); 
fillOval(- 105, 1 20,3, 1 6,aspect); 
fillOval(- 1 90,- 1 00,3, 1 6,aspect); 
fillOval(-20,- 100,3, 1 6, aspect); 
write_horz_char(- 108,- 105,75,31);  /*  K  */ 
write_horz_char(-98,- 115,51,31);  /*  3  */ 
write_horz_char(127,- 105,75,31);  /*  K  */ 
write  horz_char(  137,- 11 5,52,31);  /*  4  */ 
wait(""); 

} 

/***********************************************^^^^^^^^j 

void  wait(char  titlefj) 

{ 

int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x1 1)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(ti  tie, WHITE,  0); 
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tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringO'Press  any  key  to  continue  WHITE, 0); 

if(waitkey()— ESC)  confuui_graph_exn(); 
cls(0); 


^*************************** ******************************************** ^ 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecurQ; 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  >’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ”,31);  } 

switch  (ch)  { 

case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,’’  ",31); 

break; 

default :  break;  ) 
ifCmouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEYEL  0.  */ 


static  void  normal_exit(void) 
{ 


srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

} 


77 


/*  PROGRAM  :  ex3_5.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 
REVISED  :Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h” 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

/********************************************************************** 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
********************************************************************** 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTER N=OxFFFFFFFF; 
static  int  *savescm,crow,ccol; 
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/*********************************************************************** 
FUNCTION  DEFINITIONS 

***********************************************************************/ 
void  wait(char  titleO); 

void  open_matrix_paren(int  xl,  int  yl.int  x2,int  y2,int  color); 
static  void  example_3_5  (void); 
static  void  confirm_graph_exit(void) ; 
static  void  normal_exit(void); 

^*************** ************************************************ ******* 

MAIN  PROGRAM 

**********************************************************************/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

1 

if  (adapt  =  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

example_3_5(); 

setMode(3); 
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/*********************************************************************  j 


static  void  example_3_5(void) 

{ 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,2 10,3 10,-200, 1 1); 

open_matrix_paren(-60, 65, 30,32,1 1);  /*  paren  for  matrix  D  */ 
open_matrix_parcn(-233, 65,-170, 32,1 1);  /*paren  for  mat  C  */ 
open_matrix_paren(  162,65,225,32,1 1);  /*paren  for  matrix  E*/ 

write_horz_char( -213,64,49,31);  /*  write  cl  1  */ 
write_horz_char(- 193,64,50,31);  /*  write  cl2  */ 
write_horz_char(-2 1 3,44,5 1 ,3 1 );  /*  write  c2 1  */ 
write_horz_char(- 193,44,52,31);  /*  write  c22  */ 

write_horz_char(-40,64,49,31);  /*  write  dll  */ 
write_horz_char(-20,64,50,31);  /*  write  dl2  */ 
write_horz_char(0,64,48,31);  /*  write  dl3  */ 
write_horz_char(-40,44,5 1 ,3 1 );  /*  write  d2 1  */ 
write_horz_char(-20,44,52,31);  /*  write  d22  */ 
write_horz_char(0,44,48,31);  t*  write  d23  */ 

write_horz_char(  182,64,49,31);  /*  write  ell  */ 
write_horz_char(202,64,5 1,31);  /*  write  e  1 2  */ 
write_horz_char(  182,44,50,31);  /*  write  e21  */ 
write_horz_char(202,44,52,31);  /*  write  e22  */ 

write_horz_char(-265,55,67,31);  /*  write  C  */ 
write_horz_char(-250,55,61,31);  /*  write  =  */ 
write_horz_char(-90,55,68,31);  /*  write  D  */ 
write_horz_char(-75,55,61,31);  f*  write  =  */ 
write_horz_char(  130,55,69,31);  /*  write  E  */ 
write_horz_char(  145, 55,61, 31);  /*  write  =  */ 
write_horz_str(-300,175,"  Two  matrices  A  and  B  are  said  to  be  " 
"equal  whenever  A  and  B  have  the  same",31); 
write_horz_str(-300,160,"  number  of  rows  and" 

"  the  same  number  of  columns,  and  the  i,j  entry", 31 ); 
write_horz_str(-300,145,"  of  A  is  equal  to  the  i  j  entry  of  B" 

"  for  all  possible  i  and  j.  ”,3 1 ); 

write_horz_str(-300,130,"  In  other  words,  two  matrices  are  equal" 
when  they  have  the  same  size",31); 
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write_horz_str(-300,l  15,"  and  all  pairs  of  corresponding  entries  are  equal.",31); 
write_horz_str(-300,-30,"  The  matrix  C  is  not  equal  to  the  matrix  D" 

"  because  C  has  two  columns  and  D  ",31); 
write_horz_str(-300,-45,"  has  3  columns.  Also  the  matrices" 

"  C  and  E  are  not  equal  because  their",31); 
write_horz_str(-300,-60,"  corresponding  entries  are  not  the  same." 

"  "  In  particular,  the  1,2  entries  are",31); 

write_horz_str(-3{X),-75,"  different.  ",3 1 ); 

wait(""); 


} 


/**********************************************************************/ 


void  open_matrix_pa-en(int  xl,int  yl,int  x2,int  y2,int  color) 

{ 


extern  unsigned  long  int  PATTERN; 
drawLine  (xl  ,yl,xl+5,yl, color); 
drawLine  (xl  ,yl,xl,y2,color); 
drawLine  (xl  ,y2,xl+5,y2,color); 
drawLine  (x2  ,yl,x2-5,yl, color); 
drawLine  (x2  ,yl,x2,y2,color); 
drawLine  (x2,y2,x2-5,y2, color); 


/**********************************************************************/ 


void  wait(char  titled) 

{ 

int  tab.width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Ox  11)11  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writS  tring(title,WHrTE,0); 
tab  =  (width  -  33)/2; 
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gotoxy(tab,line); 

writStringO'Press  any  key  to  continue  WHITE, 0); 
if(waitkey()— ESC)  confirm _graph_exit(); 

cls(0); 


H:^f^*^^^tif******************************m**^'*************>r*************l 

static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write__horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
’vrite_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ”,31); 

} 

switch  (ch)  { 

case  y :  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,''  ”,31); 

break; 

case  ’N’:write_horz_str(-3(X),-210,"  ,!,31); 

break; 

default :  break; 
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if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


/**********************************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  am  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/***************4^*****************************************************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

} 
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/*  PROGRAM  :  ex3_6.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 
REVISED  :Mar.  5,  1990 

DESCRIPTION  :  Tliis  program  contains  an  example  about  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h” 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

/*************** r******************************************************** 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

%%****%***%*%******3t'**%%*******%4<*4r*3|<jt'!f<**j|t*)ttjt(*]ff3|r*j|'**)|')t'%%]ft*%****v  %*%%***/ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATl’ERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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FUNCTION  DEFINITIONS 

♦^t*********************************#***********************************/ 


void  wait(char  title  Q); 

void  open_matrix_paren(int  xl,  int  yl,int  x2,int  y2,int  color); 
static  void  example_3_6  (void); 
static  void  confum_graph_exit(void); 
static  void  norvnal_exit(void); 

MAIN  PROGRAM 


j***********************************#***********************************^ 


main() 

I 

els  ( 1 ); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V'){ 
setMode(0xl2); 
cls(l ); 


if  (adapt  ==  ’E’){ 
setMode(  16), 
cls(l); 


if  (adapt  ==  ’C’)( 
setMode(4); 
setCGAPalette(O); 
cls(l); 

) 

exainple_3_6(); 

setMode(3); 


y***********************************************************************/ 

static  void  exaniple_3_6(void) 

( 

LiNE  WIDTH  =  3; 
cls(  I ); 
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aspect  =  1.0; 

clrawRect(-309, 2 1 0,3 1 0,-200, 1 1 ); 

drawLine(-270,65,-220,65,l  1 );  /*********************/ 

drawLine(-220,65,-270,25,l  1 );  /*  */ 

drawLine(-220,65, -220, 20,1 1 );  /*  Figured  */ 

write_horz_char(-245, 0,7 1,31);  /*  */ 

write_horz_char(-238,-5,49,31);  /*********************/ 

flllOval(-270,65 ,3 , 1 6,aspect); 
fillOval(-220,65,3, 16, aspect); 
fillOval(-270,25 ,3 , 1 6 , aspect ); 
fi!10vai(-220,20,3,16,aspect); 

write_horz_char(-285,75,86,31 ); 
write_horz_char(-278,70,49,31);  /*  VI  */ 

write_horz_char(-2 1 7,75,86,3 1 ); 
write_horz_char(-210, 70, 50,31 );  /*  V2  */ 

write_horz_char(-280.23,86,31 ); 
write_horz_char(-273,18,51,31);  /*  V3  */ 

write  _horz_char( -220,1 8,86,3 1 ); 

write Jtorz_char(-21 3,1 3,52,3 1 );  /*  V4  */ 

open_matrix_paren(- 130,75,-30,2,1 1 );  /*  paren  for  matrix  G1  *1 
write_horz_char(-l  10,74,48,31);  /*  write  11  */ 
write_horz_char(-90,74,49,31);  /*  write  12*/ 
write_horz_char( -70,74,48,3 1 );  /*  write  13  */ 
write_horz_char(-50,74,48,31 );  /*  write  14*/ 
write_horz_char(-l  10.54,49,31);  /*  write  21  */ 
write_horz_char( -90,54,48,3 1 );  /*  write  22  */ 
write_horz_char( -70,54,49,3 1 );  /*  write  23  */ 
wi  ite_horz_char(-50,54,49,3 1 );  /*  write  24  */ 
write_horz_char(- 110,34,48,31);  /*  write  31  */ 
write_horz_char( -90,34,49,3 1 );  /*  write  32  */ 
wnte_horz_char(-70.34,48,31 );  /*  write  33  */ 
write_horz_char(-50, 34, 48,31 );  /*  write  34  */ 
write_horz_char(-l  10,14,48,31 );  /*  write  41  */ 
write_horz_char(-90, 1 4,49,3 1 );  /*  write  42  */ 
write_horz_char(-70, 14,48,31 );  /*  write  4?  */ 
writeJhorz_char( -50,1 4,48,3 1 );  /*  write  44  */ 
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write_horz_char(-145,42,61,31);  /*  =  */ 
write_horz_char(- 1 60,42,4 1 ,3 1 );  /*  )  */ 
write_horz_char(-175,42,71,31);  /*  G  */ 
write_horz_char(- 167,37,49,3 1 );  /*  1  */ 
write_horz_char(- 182,42,40,31);  /*  (  */ 
write_horz_char(- 190,42,65 ,31);  /*  A  */ 
write_horz_str(-163,-20,"(a)",ll);  /*  (a)  */ 

drawLine(  10,65,70,65,1 1); 
drawLine(70,65 ,40,20,1 1); 
drawLine(40,20, 1 0,65, 1 1 ); 
fillOval(  1 0,65 ,3 , 1 6, aspect ); 

fillOval(70,65,3, 16, aspect); 
fillOval(40,20,3 , 1 6, aspect ); 

write_horz_char(  -5 ,75, 86, 31); 
write_horz_char(2,70,49,31);  /*  VI  */ 

write_horz_char(72,75,86,31); 
write_horz_char(79,70,50,31);  /*  V2  */ 

write_horz_char(40, 17,86,3 1 ); 
write_horz_char(47,l2,51,31);  /*  V3  */ 

write_horz_char(47,0,71,31);  /*  */ 

write _horz_char(54,-5,50,3 1 );  /********************/ 


open__matrix_paren(170,70,250,17,ll);  /*  paren  for  matrix  G1  */ 
write  hoi z_str(l 90,68.' "0  1  1".31); 
write_horz_str(  190,48,"  1  0  1",31); 
write_horz_str(  190,28,"  1  1  0",31); 

write_horz_char(  1 55,48,61 ,3 1 );  /*  -  */ 
write_horz_cliar(145,48,41,31);  /*  )  */ 
write_horz_cliar(  130,48 ,7 1,31 );  /*  G  */ 
write  horz_char(  137,43 ,50,31);  /*  2  */ 
write_horz_char(  120,48,40,31);  /*  {  */ 
write_horz_char(  105,48,65,31):  /*  A  */ 
write_horz_str(125,-20,"(b)",l  1);/*  (b)  */ 
write_horz_str(-300,200,"  Figure  below  contains  two  graphs  and" 
"  their  adjacency  matrices.  For  (a)  the", 31 ); 
write_horz_str(-300,185,”  1,2  entry  is  1  because  there  is  an" 

"  edge  between  vertices  VI  and  V2,",3I); 
write_horz_str(-300,170,"  and  the  3,4  element  is  0  because" 

"  there  is  no  edge  between  V3  and  V4.",3I ); 
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write_horz_str(-300,155,"  For  (b)  we  see  that  the  1,2  entry  and 
"  1,3  entries  are  1  because  of  the  ”,31); 
write_horz_str(-300,140,"  edges  between  VI  and  V2  and" 

"  between  V 1  and  V3.",3 1 ); 


ii 


write_horz_str(-300,-50,"  Note  that  in  Figure  (a)  the  sum  of  the  entries" 
"  in  row  1  is  1,  which  is" ,31 ); 

write_horz_str(-300,-65,”  the  degree  of  VI,  and  likewise  the" 

"  sum  of  the  entries  in  row  2  is  the",31 ); 
write_horz_str(-300,-80,"  degree  of  V2.  This  illustrates  a  more" 

"  general  result.",31); 

wait(""); 


) 

j-M  ********************************************************************** 


void  open_matrix_paren(int  xl  ,int  y  1  ,int  x2,int  y2,int  color) 


extern  unsigned  long  int  PATTERN; 
drawLine  (xl  ,yl,xl+5,yl, color), 
drawLine  (xl  ,yl,xl,y2, color); 
drawLine  (xl  ,v2,xl+5,y2,color); 
drawLine  (x2  ,yl,x2-5,yl, color); 
drawLine  (x2  ,yl,x2,y2, color); 
drawLine  (x2,y2,x2-5,y2,color); 

) 

/********************************************************************** 
void  wait(char  title]  |) 


int  tab, widthjine, mode; 


mode  =  getMode(& width); 


if  ((mode  ==  Oxll)  II  (mode  ==  0x12)) 

line  =  29; 

else 

line  =  24; 


tab  =  (width  -  strlenf title ))/2; 
gotoxy(tab.O); 
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writString(title,WHITK.O); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writStringC'Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm_graph_exit(); 
cls(0); 


static  void  confirm_graph_exit(void) 

I 


struct  _onkey_t  *kblist; 
char  ch; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 

if(_mouse&MS_CURS )  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 

ch  =  getch  (); 

whde  (!((ch  ==  ’y’ )  !l  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str( 30,-2 10,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31); 

} 

switch  (cli)  { 

case  ’y’:  setMode(3); 
videouiit(); 
nonnaI_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N':write_horz_str(-300,-210,"  ”,31); 

break; 
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default :  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


) 


/*  tliis  function  handles  nonnal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  nonnal  exit(void) 


srestore(savescm); 

gotoxy_(crow.ccol); 

if(_ mouse)  inshidecur(); 

showcur(); 

exit(0); 

) 
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/*  PROGRAM  :  ex3_7.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 
REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Graphs  and 
their  Representations”. 

MACHINE/COMPILER  :  Tliis  prugram  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#inelude  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h” 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

/*********************************************************************** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 


FUNCTION  DEFINITIONS 


void  wait(char  title[]); 
static  void  example_3_7  (void); 
static  void  confirm  graph  exit(void); 
static  void  normal_exit(void); 

^******** ***************************************** 
MAIN  PROGRAM 


**************************************************/ 


main() 


els  (1 ); 

adapt  =  getAdapter(); 

if  (adapt  ==  ’V’){ 
setMode(0xl2); 
cls(l); 

} 

if  (adapt  ==  ’E’){ 
setMode(I6); 
cls(l); 


if  (adapt  ==  ’C’)( 
setMode(4); 
setCGAPalette(O); 
cls(l); 

) 

example_3_7(); 
setMode(3 ); 

I 

I*********************************************************************** 


static  void  exampie_3_7(void) 

( 

LINEWIDTH  =  3; 

cls(  1 ); 

drawRect(-309,2 10,31 0,-200, 1 1); 
drawLme(- 1 20, 1 50,0,1 50, 1 1 ); 
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drawLine(0. 150,0.0,1 1); 
drawLine(0,0,- 1 20,0, 1 1 ); 
drawLine(- 120,1 50,-120,75,11); 
drawLine(- 1 20,75,0,75, 1 1 ); 
aspect  =  1.0; 

fiUOval(- 1 20, 150, 3, 16, aspect); 
fillOval(0,150,3,16,aspect); 
fiUOval(0,0,3 , 1 6, aspect); 
fillOval(- 120,0,3, 16, aspect); 
fillOvaK- 1 20,75 ,3 , 1 6,  aspect ); 
fillOval(0,75,3, 1 6,  aspect); 
write  _horz_char(- 1 35 , 1 60,86,3 1 ); 
write_horz_char( -128, 1 55 ,49,3 1 ) ;  /*  VI  */ 

write_horz_char(5, 1 60,86,3 1 ); 
write_horz_char(  12, 155,50,31);  /*  V2  */ 

write_horz_char(- 130,75,86,31); 
write_horz_char(-123,70, 51,31 );  /*  V3  */ 

writeJiorz_char(5,75,86,31); 
write_horz_char(  1 2,70,52,3 1 );  /*  V4  */ 

write  _horz_char(5,-5,86,3 1 ); 

write Jiurz_char(  12,-10,53,31);  /*  V5  */ 

write_horz_char(-l  30,-5,86.3 1 ); 

write _horz_char(  - 1 23 ,- 1 0,54,3 1 );  /*  V6  */ 

write_horz_str(-60,-15,"(a)",l  1 );  /*  (a)  */ 

write_horz_str(50,150,"V  :V,V",11);  /****************/ 

write_horz_char(57, 145,49,1 1 );  /*  V1:V2,V3  */ 

write_horz_char(82, 145, 50,1 1 );  /*  */ 

write_horz_cliar(  107,145,51,1 1 );  /****************/ 

write_horz_str(50,130,"V  :V  ,V",  11);  /****************/ 
write_horz_char(57, 125,50,1 1 );  /*  V2:V1,V4  */ 

wjite_horz_char(82,l  25,49,1 1);  /*  */ 

write_horz_char(  107,125,52,1 1);  /****************/ 

wnte_horz_st,(50,l  10, "V  :V  ,V",1 1);  /****************/ 
write  horz  rharf 57,105,51 ,1  i  >;  /*  V3:V1,V4  */ 


write_horz_cliar(82, 105,49, 1 1);  /*  */ 

write_horz_ciiar(107,I05,52,ll);  /****************/ 

write_horz_str(50,90,"V  :V  ,V  ,V",11);  /****************/ 
write_horz_char(57,85,52,l 1 );  /*  V4:V2,V3,V5  */ 

write_horz_char(82,85,50,l  l);  /*  */ 

write_horz_char(  107,85,51,1 1 );  y****************y 

write_horz_char(  132,85,53,1 1 ); 

write_horz_str(50,70,"V  ;V  ,V',11);  /****************/ 

write_horz_char(57, 65,53,1 1 );  /*  V5:V4,V6  */ 

write_horz_char(82,65,52,l  1);  /*  */ 

write_horz_char(107,65,54,l  1 );  y****************y 

write_horz_str(50,50,"V  :V",11);  y****%***********y 

write Jiorz_char(57, 45 ,54,1 1 );  /*  V6:V5  */ 

write_horz_char(82,45,53,l  1);  y****************y 

write_horz_str(80,-15,"(b)",l  1);  /*  (b)  */ 

write_horz_str(-300,-50,”  For  the  graph  in  Figure  above" 

"  there  are  6  labeled  vertices,  and  we  list" ,31); 
write_horz_str(-300.-65,"  them  in  a  vertical  column  as  in" 

"  (b).  Beside  vertex  VI  we  list  the  adjacent",31 ); 
write_horz_str(-300,  80,"  vertices,  which  are  V2  and  V3” 

"  Tlien  proceding  to  the  next  vertex  V2,",3I); 
write_horz_str(-300,-95,"  we  list  the  vertices  adjacent  to" 

"  it,  V 1  and  V4.  This  process  is  continued", 3 1 ); 
write_horz_str(-300,-l  10,"  until  we  get  the  adjacency  list" 

"  in  (b).",31 ); 

wait(""); 


void  waitfchar  title[]) 

I 

int  tab, width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x11)  II  (mode  =  0x12)) 
line  =  29; 
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else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
wr  itString(t  itle ,  WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringO'Press  any  key  to  continue  WHITE, C); 

if(waitkey()==ESC)  confirm _graph_exit(); 
cls(0); 

} 

static  void  confinn_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
cliar  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  -  getch  (); 

whUe  (!((ch  ==  y )  II  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
write_hoi'z_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-2 10,"  ",3 1 ); 

) 

switch  (ch)  { 
case  ’y’:  setMode(3); 

video  init(); 

normaI_exit(); 

break; 

case  ’Y’;  setMode(3); 
videoinit(); 
normal_exit(); 
break; 
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case  ’n’:write_horz_str(-300,-210," 


break; 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 

default :  break; 


if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 

/*  this  function  handles  nonnal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

Jif.  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  aft  *  *  *  ★  *  *  *  *  *  ★  *  *  *  *  *  ★  *  *  *  *  *  *  *  *  *  *  *  *  *  *  +  *  %  *  *  *  *  *  *  *  afr  * 

static  void  normal_exit(void) 

( 

srestore(savescni); 
gotoxy_(crow  ,ccol ) ; 
if(_mouse)  mshidecur(); 

showcurO; 

exit(0); 

) 
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/*  PROGRAM  :  ex3_8.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 
REVISED  :Mar.  5,  1990 

DESCRIPTION  .  This  program  contains  an  example  about  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h” 

#include  "cxldef.h" 

#include  "cxlkey  .h" 

#include  "cxlmou.h" 

#include  "cxlstr.h” 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

’ll**********:'-#***********************************************/ 


char  adapt; 

int  color  =  2; 

int  L1NEWIDTH=I; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
static  int  *savescm,crow,ccol; 
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I************************************************** 

FUNCTION  DEFINITIONS 

**************************************************1 


void  wait(char  title[j'; 

void  open_matrixjparen(  int  xl,  int  yl.int  x2,int  >2,int  color); 
static  void  exainple_3_8  (void); 
static  void  confirm_graph_exit(void); 
static  void  nonrial_exit(void); 

/***************************,<.).*+***********+*+  +  +  *  +  *+* 
MAIN  PROGRAM 


****************************************************  / 


main() 

I 


els  (1); 

adapt  =  get  Adapter!); 
if  (adapt  ==  ”V’){ 
setMode(0xl2); 
cls(l ); 

I 

if  (adapt  ==  ’E’){ 
setMode(16); 
cls(l); 

) 

if  (adapt  =•=  ’C’)( 
setMode(4); 
setCG  APalette(0 ); 
cls(l); 


example_3_8(); 
setMode(3 ); 
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static  void  example_3_8(void) 

I 

LINE  WIDTH  =  3; 

cls(l); 

drawRect(-309,210,3 1 0,-200,] !); 
open  jmatrix_paren(-200,55,-140,2, 1 1 ); 
open_matrix_paren(- 100,55,-40,2,1  ( ); 
open_rnatrix_paren(0,5:>,ioG,2,l  1 ); 
open_matrix_paren(140,55,200,2,l  1 ); 

write_horz_char(- 120.34.43,31);  /*  +  */ 

write_horz_char(-20,34,6 1 ,3 1 );  /*  --  J'j 

write_horz_char(.120,34,61,31);  /  •  =  */ 

write_horz_str(-l  80,54. "3  4", 31 ); 
write_horz_str(-l  80,34, "2  1",31 ); 
•,vrite_horz_str(-180,14,"0  5",31); 

write_horz_str(-8r,54,"2  6" ,31 ); 
write_horz_str(-80,34,"3  0",3 1 ); 
write_horz_str(-80,  l4,"2  1",?1 

write_horz_str(20,f»4,"3+2  4+6",31); 
write_horz_str(20,34,"2+3  1+0"  ,3 1 ); 
write_horz_str(20,14,"0+2  5+1 ", 3 1 ); 

write_horz_str(  1 60 ,54, "5  10", 3 1 ); 
write_liorz_str(  1 60, 34, "5  1",3 1 ); 
write_horz_str(160,l4,"2  6"  ,31 ); 

write_horz_str(-300,-50,"  With  the  matrices  given  above," 
"  note  liow  the  sum  of  the  two  matrices  is”, 31 ); 
write_horz_str(-300.-65,"  formed  by  adding  together  the" 
"1,1  entries  of  the  two  matrices,  then  the",31); 
wnte_horz_str( -300,-80,"  1,2  entries,  then  the  2,1  entries" 
"  and  continuing  until  the  complete  sum", 31 ); 
write_horz_str(-300,-95,"  is  formed.", 31 ); 
waW"’): 

I 
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/I**********************************************************************/ 


void  open  matrix_paren(int  xl,int  yl,int  x2,int  y2,int  color) 

( 


extern  unsigned  long  int  PATTERN; 
drawLine  (xl  ,y l,xl+5,yl,coIor); 
drawLine  (xl  ,yl,xl,y2,color); 
drawLine  (xl  ,y2,xl+5,y2, color); 
drawLine  (x2  yl,x2-5,yl .color); 
drawLine  (x2  ,vl,x2,y2, color); 
drawLine  (x?,y2,x2-5,y2, color); 


/ 


void  wait(char  iitle[]) 

( 

int  tab,width.line,mode; 

mode  =  getMode(<Srwidth), 

if  ((mode  ==  Oxll)  II  (mode  ==  0x12)) 

line  =  29 

else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/?; 
gotoxy(tab.line); 

writStringC'Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confinn _graph_exit(); 

cls(0); 


100 


static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse<&MS_CURS )  mshidecur(); 
write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_sti (30,-2 10,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-2 10,"  ",31); 

) 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videouiit(); 
normal_exit(); 
break; 

case  ’ n ’  ;■ write _horz_str( -300,-210," 
break; 

case  ’N’;write  Jrorz_str(-300,-210," 
break; 

default  :  break; 

I 

if(_mouse&MS_CURS)  tnsshowcur( ); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


”31); 

”,31); 
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/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  oefore  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


^*  *****************************«***%************************************/ 


static  void  nonnal_exit(void) 


srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

} 
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/*  PROGRAM  :  ex3_9.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 
REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  Tills  program  contains  an  example  about  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

V 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

int  color  =  2; 

bit  LENEW1DTH=1; 

unsigned  long  bit  PATTERN=OxFFFFFFFF; 
static  bit  *savescm,crow,ccol; 


FUNCTION  DEFINITIONS 


void  wait(char  title[]); 

void  open_matrix_paren(int  xl,  int  yl,int  x2,int  y2,int  color); 
static  void  example_3_9  (void); 
static  void  confimi_graph_exit(void); 
static  void  nomial_exit(void); 


************************************************ 


MAIN  PROGRAM 


******* 


********************************************/ 


main() 


els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  V’) 

I 

setMode(0x!2); 
cls(l ); 

} 

if  (adapt  ==  '£’) 

( 

setMode(L6); 

cls(l); 

) 

if  (adapt  =  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

example_3_9(); 

setMode(3); 
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/fc^*********************************************************************/ 

static  void  example_3_9(void) 

( 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,2 10,3 10,-200,1 1); 

write_horz_str(-300,190,"  For  the  matrices  A  and  B  listed  below,",31); 
open_matrix_paren(- 1 00, 1 70,-20, 1 37 , 1 1 ); 
open_inatrix_paren(20, 170,120,1 17,1 1 ); 

write_horz_char(-130, 155, 65,31);  /*  A  */ 
write_horz_char(- 1 1 5, 155,61 ,3 1 );  /*  =  */ 

write_horz_char(-10, 155, 66,31);  /*  B  */ 
write  Jiorz_char(5, 155, 61,31);  /*  =  */ 

write_horz__str(-80,169,"l  2  3",31 ); 
write_horz_str(-80,149,"4  5  6",3 1 ); 


write_horz_str(40,169,"l  3  5  8", 31); 
write  __horzstr(40. 1 49, "0  1  6  9",31); 
writejiorz__str(40,129,”2  4  7  1",31); 

write_horz_str(-300, 1 1 0,"  the  1 ,3  element  in  the  product  AB  is", 3 1 ); 
write_horz_str(-290,90,"a  b  +ab  +  a  b  =  1x5  +  2x6  +  3x7  =  38."  ,31); 


_horz_char(-283,85,49,31 ) 
_horz_char(-275,85,49,31 ) 
Jiorz_chai(-258,85,49,31 ) 
_horz_char(-250,85,5 1 ,3 1 ) 
_horz_char(-210,85,49,3 1 ) 
_horz__char(-202,85,50,3 1 ) 
_horz_char(-185,85,50,31) 
_horz_char(- 177,85, 5 1,31) 
_horz_char(- 137,85,49,31) 
_horz_char(  - 1 29,85 ,5 1 ,3 1 ) 
_horz_char(- 1 1 2,85,5 1 ,3 1 ) 
_horz_char(- 104,85 ,5 1 ,3 1 ) 


/*  al  */ 
/*  al  1  */ 
/*  bl  */ 
/*  bl3  */ 
/*  al  */ 
/*  al2  */ 
/*  b2  */ 
/*  b23  */ 
/*  al  */ 
/*  al3  */ 
/*  b3  *! 
/*  b33  *1 


write_horz_str(-300,65,"  The  2,4  element  in  AB  is",31); 
write_horz_str(-290,45,"a  b  +a  b  +a  b  =  4x8  +  5x9  +  6x1  =  83."  ,31); 


write_horz_char(-283, 40, 49,31 ) 
write_horz_char(-275,40,49,31 ) 
write_horz_char(-258.40,49,3 1 ) 
write_horz_char(-250,40,5 1 ,3 1 ) 


f*  a2  */ 
/*  a21  V 
/*  bl  */ 
/*  bl4  */ 
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write_horz_char(-2 10,40,49,3 1 ); 

/*  a2  */ 

write_horz_char(-202,40,50,3 1 ); 

/*  a22  */ 

write_horz_char(  -185, 40, 50, 31); 

/*  b2  *1 

write_horz_char(- 177,40,5 1 ,3 1 ); 

/*  b24  +/ 

write_horz_char(- 137,40,49,3 1 ); 

/*  a2  */ 

write_horz_char(- 1 29,40,5 1 ,3 1 ); 

/*  a23  */ 

write_horz_char(-l  12,40,51,31); 

/*  b3  */ 

write_horz_char(- 104,40,5 1 ,3 1 ); 

/*  b34  */ 

write_horz_str(-300,20,"  Continuing  in  this  fashion  the  product  AB  is  found  to 

be",31); 

open_matrix_paren(-250,-20, 160, -53,1 1 ); 
write_horz_str(-230,-2 1 ,"  1  x  1  +2x0+3x2  1  x3+2x  1+3x4" 
"  Ix5+2x6+3x7  Ix8+2x9+3xl",31); 
write_horz_str(-230,-4 1  ,"4x l+5x0+6x2  4x3+5x  1  +6x4" 
"  4x5+5x6+6x7  4x8+5x9+6xl",31); 
open_matrix_paren(-200,-7 1  ,-80,-104, 11); 
write_horz_str(- 1 80,-72,"  7  17  38  29",31); 
write_horz_str(- 180,-92,"  16  41  92  83",31); 
write_horz_char(-215, -87,6 1,31);  /*  =  *1 

write_horz_char(-75,- 100,46, 31):  /*  .  */ 

wait  (""); 


I 


^* *********** 


***********************************************************^ 


void  open_matrix_paren(int  xl,int  yl.int  x2,int  y2,int  color) 


extern  unsigned  long  int  PATTERN; 
drawLine  (xl  ,yl,xl+5,yl,color); 
drawLine(xl  ,yl,xl,y2,color); 
drawLine  (xl  ,y2,xl+5,y2,color); 
drawLine  (x2  ,yl,x2-5,yl, color); 
drawLine  (x2  ,yl,x2,y2, color); 
drawLine  (x2,y2,x2-5,y2, color); 
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/***************%*  **********  *******  ********************  ****************:(y 
void  wait(char  title[j) 

{ 


int  tab, width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxll)  II  (mode  ==  0x12)) 
line  =  29; 


else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringt’Tress  any  key  to  continue  WHITE, 0); 

if(waitkey(  )=ESC)  confinn  graph  exit( ); 
cls(0); 


) 

/***********************************************************************/ 
static  void  confirm_graph_exit(void) 

I 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  f*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30, -2 10,"  ",31); 

} 

switch  (ch)  ( 
case  ’y’:  setMode(3); 
videoinit(); 
nonnal_exit(); 
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break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n^writeJiorZ-Strf-SOO^IO,"  ”,3J); 

break; 

case  ’N’;write_horz_str(-300,-210,"  ”,31); 

break; 

default  :  break; 

) 

if(_mouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*  this  function  handles  nonnal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/*****%********%********************************************************y 


static  void  nonnal_exit(void) 

I 

srestore(savescm ); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

I 
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/*  PROGRAM  :  ql.c 
AUTHOR  .  Yavuz  BAS 
DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey  h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt,  Ch; 

int  color  =  2; 

int  LINEW1DTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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FUNCTION  DEFINITIONS 

l**************************:**********.**************/ 


void  wait(char  tidefj); 

void  question_l  (void); 

static  void  confum_graph_exit(void); 

static  void  normal_exit(void); 

/***************************  ******  ******  *********** 
MAIN  PROGRAM 

4c3#cjfcafca*ca«c4c3|e^e3|c4c4<4(4K3(c3#c4e3|c4(3|c34ea|«4<4(4c4c3fc34c^4«%3fc3tc4c3fisfc4ca4>3fe3|c3|(4c3#K4(34ca|ca#Ka#ea|e/ 


main() 


els  (l); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 


setMode(0xl2); 

cls(l); 

I 

if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(I); 

) 

if  (adapt  ==  ’C’) 

I 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

question_l(); 

setMode(3); 


} 
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I************************ *********************************************** I 

static  void  question_l(void) 

( 

LENEWIDTH  =  3; 

cls(l); 

drawRect(-309,2 1 0,3 1 0,-200, 1 1 ); 

write  _horz_str(-300,160,"  Determine  if  a  graph  is  indicated  in" 

"  the  following  Figure.",3i); 

aspect  =  1 .0; 

fillOval(-l  10, 130,3, 16, aspect); 

write_horz_char(- 125, 130,65 ,31);  /*  A  */ 

write_horz_str(-300,40,"  Enter  your  choice  as  y  or  n  — >",31); 

Ch  =  waitkeyO; 

if(Ch==ESC)  confinn _graph_exit(); 

while  (!((Ch  ==  ’y’)  H  (Ch  ==  V)  II  (Ch  =  ’Y’)  II  (Ch  =  ’N’)))  [ 
write_horz_str(0,40,"  Please  type  y  or  n",31 ); 

Ch  =  waitkeyO; 

if(Ch==ESC)  confirm _graph_exit(); 
if  ((Ch  ==  y’)ll  (Ch  ==  ’Y’)  II  vCh==  n’)  II  (Ch  ==  ’N’)) 
write_horz_str(0,40,"  ".31);  ) 

switch  (Ch)  | 

case  V  :write_horz_str(-30,40."  y  ",31); 

write_horz_str(-30,20,"  Yes,  because  this  is  a  graph  that",31); 
write_horz_str(-30,0,"  consists  of  one  vertex  but  no  edges", 31); 
break: 

case  ’Y’  :write_horz_str(-30,40,"  Y  ",31  >; 

write_horz_str(-30,20,"  Yes,  because  tliis  is  a  graph  that”, 31); 
write„horz_str(-30,0,"  consists  of  one  vertex  l  ut  no  edges",31); 
break; 

case  ’n’  :write_horz_str(-30,40,"  n  ”,31); 

write_horz_str(-30,20,"  The  answer  must  be  yes,  because",3i); 
write Jiorz_str(-30,0,"  this  is  a  graph  that  consists  of',31 ); 
write_horz_str(-30,-20,"  one  vertex  but  no  edges.",31); 
break; 


case  ’N’  :write_horz_str( -30,40,"  N  ",3l); 


write_horz_str(-30,20,"  The  answer  must  be  yes,  because",31); 
write_horz_strt-30,0,"  this  is  a  graph  that  consists  of’,31); 
write_horz_str(-30,-20,"  one  vertex  but  no  edges. ”,31); 
break; 

default  :  break;  } 
wait("Exercise  1"); 

} 

void  wait(char  titleU) 


int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  =  Oxll)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writString("Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm _graph_exit(); 
cls(0); 


j* ********************************************************************** j 

static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)r’,79); 
ch  =  getch  ( ); 

whUe  (!((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
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ch  =  getch  (); 
write_horz_str(30,-210, 


,31); 


switch  (ch)  { 

case  ’y’:  setMode(3), 
videoirtit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
nonnal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ”,31); 

break; 

case  ’N’:write_horz  _str( -300,-2 10,"  ",31); 

break; 

default  :  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgoukey(kblist);  /*  restore  any  hidden  hot  keys  */ 

i 

I 

/+***  +  **  +  *****  + **********  +  *  tit************************************  ***  +  +  **/ 

/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  normal_exit(void) 

I 

srestore(savescm ). 
gotoxy_(crow,ccol ); 
iff  mouse)  mshidecurf); 
show  cult )  ; 
exit(0); 


► 
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/*  PROGRAM  :  q2.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  This  program  contains  an  exercise  for  the  "Graphs  and 
their  Representations" 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 


#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.Ii" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
*************************************#*%%,)<*,)■*.  ************/ 


char  adapt.  Ch; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
static  int  *savescm,crow,ccol; 
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j*  fc************************************************ 

FUNCTION  DEFINITIONS 

void  wait(char  titlel)); 

void  question_2  (void); 

static  void  confirm_graph_exit(void); 

static  void  normal_exit(void); 

/***********  +  ******************:f****************** 

MAIN  PROGRAM 

j************************************************^ 

main( ) 

I 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

( 

setMode(0xl2); 
cls(  1 ), 

I 

if  (adapt  ==  ’E') 

( 

setMode(16); 
cls(  1 ); 

) 

if  (adapt  ==  ’C’) 

I 

setMode(4); 
setCGAPalette(O); 
cls(l ); 

I 

question_2(); 

setMode(3); 

) 
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/**********+******************************+*****************************/ 


static  void  question_2(void) 

{ 

LINEWIDTH  =  3; 


cls(l); 

drawRect(-309, 210,3 10,-200,11); 

write  Jiorz_str(-300, 160,"  Determine  if  a  graph  is  indicated  in” 

"  the  following  Figure.", 31); 
drawLine(-l  10,130,0,130,1 1); 

writejhorz_str(-300,40,"  Enter  your  choice  as  y  or  n  — >",31); 

Ch  =  waitkeyO; 

if(Ch=ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’y’) «  (Ch  ==  ’n’)  II  (Ch  =  T’)  II  (Ch  ==  ’N’)))  { 
write_horz_str(0,40,"  Please  type  y  or  n",31); 

Ch  =  waitkeyO; 

if(Ch==ESC)  confirm_graph_exit(); 

if  ((Ch  ==  y )  II  (Ch  ===  ’Y’)  H  (Ch  ==  ’n’)  II  (Ch  ==  ’N’)) 

write_horz_str(0,40,"  ",31); 


switch  (Ch)  { 

case  y  :writejiorz_str(-30,40,"  y  ”,31); 

write_horz_str(-30,20,"  No,  because  there  is  an  edge",3 1 ); 
write_horz_str(-30,0,"  that  doesn’t  have  any  vertices.",31); 
break; 

case  ’Y’  :write_horz_str(-30,40,"  Y  ",31); 

write_horz_str(-30,20,"  No,  because  there  is  an  edge",31 ); 
write _horz_str(-30,0,"  that  doesn't  have  any  vertices",31); 


break; 

case  ’n’  ;write_horz_str(-30,40,"  n  ”,31); 

writejiorz_str(-30,20,"  You  are  right,  because  there  is  an" ,31); 
write_horz_str(-30,0,"  edge  that  doesn’t  have  any  vertices.",31); 
break; 

case  ’N’  :write_horz_str(-30,40,"  N  ",31); 

write_horz_str(-30,20,"  You  are  right,  because  there  is  an", 31); 
write _horz_str(-30,0,"  edge  that  doesn’t  have  any  vertices. ".31 ); 
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break; 

default  :  break;  ) 
wait("Exercise  2"); 


void  wait(char  title[]) 

I 


int  tab, widthjine, mode; 
mode  =  getMode(&width); 
if  ((mode  —  Oxl  1)  II  (mode  =.  0x12)) 
line  =  29; 


else 


line  =  24; 


tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writString("Press  any  key  to  continue  WHITE, 0); 

if(waitkey(  )==ESC)  confimi_graph_exit(); 
cls(0); 


static  void  confum_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300, -210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

whUe  (!((ch  ==  y )  II  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  ==  ’N’)))  ( 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-2 1 0,"  ”,31); 
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switch  (ch)  { 

case  ’y’:  setMode(3); 
videoi«it(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoiiiit(); 
normal_exit(); 
break; 

case  ’n ’ : write_horz_str(-300r2 10,"  ",31); 

break; 

case  W:writejiorz_str(-3()0,-210,"  ”,31); 

break; 

default :  break; 


if(_;nouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 

/***********************************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/*********%********************* 
static  void  normal_exit(void) 

{ 


srestore(savescm); 
gotoxy_(cro  w  ,ccol ) ; 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 


I 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q3.c 

:  Yavuz  BAS 
:  Feb.  4,  1990 
:  Mar.  5,  1990 


DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt,  Ch; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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/************************************************** 

FUNCTION  DEFINITIONS 


void  wait(char  title[J); 

void  nnestion_l  (void): 

void  question_2  (void); 

void  question_3  (void); 

static  void  nomial_exit(void); 

static  void  confirm _graph_exit(void); 

MAIN  PROGRAM 


**++***#*♦♦**++*+***+**+*++ ifr***********************^ 


main() 

I 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  =  ’V’) 

I 

setMode(0xl2); 

cls(I); 

) 

if  (adapt  ==  ’E’) 

I 

seiMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

( 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

question_3(); 

setMode(3); 
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/******************+****++***m*mmil4lmmmmmm+)ltf  ********** 

static  void  question_3(void) 

( 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,2 1 0,3 1 0,-200,  II); 

write_horz_str(-300,160,"  Determine  if  a  graph  is  indicated  in" 

"  the  following  Figure.  ”,31); 
drawLine(-l  10,130,0,100,11);  /*  AC  */ 
drawLine(0,100,100,100,l  1);  /*  C?  */ 

drawLine(- 110,70,0,100,11);  /*  BC  */ 

aspect  =  1.0; 

fillOval(- 1 1 0, 1 30,3 ,1 6, aspect); 

fillOval(0, 1 00,3 , 1 6, aspect); 

fillOvaI(-l  10.70,3, 16, aspect); 

wr ite_horz_char( - 1 25 , 1 30 ,65 ,31);  /*  A  */ 

write_horz_char(- 1 25 ,70,66,3 1 );  /*  B  */ 

write_horz_char(0, 120,67,31);  /*  C  */ 

write_horz_str(-300,40,"  Enter  your  choice  as  y  or  n  — >",31); 

Ch  =  waitkeyO; 

if(Ch==ESC )  confinn _graph_exit(); 

while  (!((Ch  ==  y )  II  (Ch  ==  ’n’)  II  (Ch  =  ’Y’)  II  (Ch  =  ’N’)))  { 
write_horz_str(0,40,"  Please  type  y  or  n",31); 

Ch  =  waitkeyO; 

if(Ch=ESC)  confirm_graph_exit(); 

if  ((Ch  =  ’y’)  II  (Ch  ==  *Y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’N’)) 

write_horz_str(0,40,"  ”,31); 

) 

switch  (Ch)  { 

case  ’y’  :write_horz_str(-30,40,"  y  ”,31); 

write_horz_str(-30,20,"  No,  because  there  is  a  missing"  ,31); 
write_horz_str(-30,0,"  vertex  for  the  edge  starting",31); 
write_horz_str(-30,-20,"  at  C  and  going  to  the  right.",31); 
break; 

case  ’Y’  :write_horz_str(-30,40,"  Y  ”,31); 
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write_horz_str(-30,20,"  No,  because  there  is  a  missing",31); 
write_horz_str(-30,0,"  vertex  for  the  edge  starting",31); 


write_horz_str(-30,-20,"  at  C  and  going  to  the  right.",31); 
break; 

case  ’n’  :write_horz_str(-30,40,"  n  ",31); 

write  _hor7_str( -30,20,"  You  are  right,  because  there  is  a",31); 


write_horz_str(-30,0,"  missing  vertex  for  the  edge  starting",31); 
write_horz_str(-30,-20,"  at  C  and  going  to  the  right. ”,31); 
break; 

case  ’N’  :write_horz_str(-30,40,"  N  ”,31); 

write_horz_str(-30,20,"  You  are  right,  because  there  is  a",31); 
write_horz_str(-30,0,"  missing  vertex  for  the  edge  starting",31); 
write_horz_str(-30,-20,"  at  C  and  going  to  the  right.”,31); 
break; 

default  :  break;  } 
wait( "Exercise  3"); 


/if**********************************************************************/ 


void  wait(char  titlelJ ) 

( 

int  tab, width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x1 1 )  II  (mode  =-  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title,  WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writString( "Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confixm_graph_exit(); 

cls(0); 

) 
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^***************************************** ****************************  *j 

static  void  confirm_graph_cxit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse<fcMS_CURS)  mshidecur(); 

write_horz_str(-300, -210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  ’y’ )  II  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  ( 
write_horz_str(30,-210,”  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ”,31); 

) 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinitO; 
nonnal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinitO; 
nomial_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ”,31); 

break; 

default  :  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


) 


/I***********************************************************************/ 

/*  this  function  handles  normal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/I********************************************************************** 


static  void  nonnal_exit(void) 

( 

srestore(savescm); 
gotoxy_(crow  ,ccol ); 
ift  jnouse)  mshidecur(); 
showcur(); 

exit(0); 

} 
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/*  PROGRAM  :  q4.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 
REVISED  :  Mar.  5, 1990 

DESCRIPTION  Tills  program  contains  an  exercise  for  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

/*********************************************************** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
**********************************************************,1,  / 


char  adapt,  Ch; 

int  color  =  2; 

int  L1NEW1DTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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FUNCTION  DEFINITIONS 


void  wait(char  title[]); 
void  question_4  (void); 
static  void  normal_exit(void); 
static  void  confirm _graph_exit(void); 


/i*************************************************** 


MAIN  PROGRAM 


******************************************4 1* ******/ 


niainQ 

i 

els  (J); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(I); 

} 

if  (adapt  ==  ’E’) 

( 

setMode(16); 

cls(I); 

) 

if  (adapt  ==  ’C’) 

( 

setMode(4); 

setCGAPalette(O); 

cls(l); 

) 

question_4(); 

setMode(3); 

I 
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static  Vv/iu  question_4(void) 

I 

L1NEWIDTH  =  3; 
cls(l); 

drawRect(-309,2 1 0,3 10,-200, 1 1 ); 

write_horz_str(-300,160,"  For  die  following  Figure  give  the" 

"  degree  of  A.",31); 
drawRect(-50, 120,50,20,1 1); 
drawLine(-50, 120,50,20, 11);  /*  AD  */ 
drawLine(50, 120,-50,20, 11);  /*  BC  */ 
drawLine(-50, 120,-70,70, 11);  /*  AE  */ 

aspect  =  1.0; 

fillOval(-50, 1 20,3 , 1 6,aspect); 
fillOval(50,20.3 , 1 6, aspect); 
fillOval(50, 1 20,3 , 1 6, aspect); 
fil!0val(-50,20,3,16,aspect); 
fil!0val(-70,70,3,16.aspect); 

write_horz_char(-65,120,65,3l);  /*  A  */ 
write_horz_char(60, 120,66,31);  /*  B  */ 

write_horz_char(-65,20,67,31);  /'  C  */ 

write_horz_char(60,20,68,31),  /*  D  */ 

write_horz_char(-85 ,70,69,31);  /*  E  */ 

write_horz_str(-300,0,"  Choose  one  of  the  followings:",31); 
write_honr._str(-300,-20,"  a)  deg  (A)  =  1",31 ); 
write_horz_str(-300,-40,"  b)  deg  (A)  =  2",3J ); 
write_horz_str(-300,-60,"  c)  deg  (A)  =  3",31); 
write_hor7_str(-300,-80,"  d)  deg  (A)  =  4", 3 1 ); 
write_horz_str(-300,-100."  e)  deg  (A)  =  5  ',3i); 

write_horz_str(-300,-120,"  Type  the  letter  of  which  you  believe  is  true — >",31); 
Ch  =  waitkeyO; 

if(Ch==ESC)  confurn_graph__exit(); 

while  (!((Ch  ==  ’a’)  II  (Cn  =  ’b’)  II  (Ch  =  ’c’)  II  (Ch  ==  ’d’)  II  (Ch  =  ’e’)))  { 
write_horz_str(0,-140,"  Please  type  one  of  a,  b,  c,  d,  or  e",31); 
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Ch  =  waitkeyO; 

if(Ch==L.SC)  confirm_graph_exit(); 

if  ((Ch  =  V)  li  (Ch  ^  V)  II  (Ch  —  V)  II  (Ch  ==  ’d’)  II  (Ch  ==  ’e’)) 
write  horz_str(0,-140,"  ",3 1 ); } 

switch  (Ch)  { 

case  ’a’  :write_horz_str(90,-120,"  a  ”,31): 

write_horz_str('300,-140,"  No,  the  answer  must  be  d,  because" 

"  there  are  four  edges  that  start ’’,31); 
write_horz  str(-300,-160,"  from  the  vertex  A.  Namely,  these" 

"  edges  are  AB,  AC,  AD,  and  AE",3l); 

break; 

case  ’b’  :wri  t  _horz_str(90,-120,"  b  ”,31 ); 

write_horz_str(  300,-  i40,"  No,  the  answer  must  be  d,  because" 

"  there  are  four  edges  that  start",31); 
write_hoix_str('300,-160,"  from  the  vertex  A.  Namely,  these" 

"  edges  are  AB,  AC,  AD,  and  AE’,31); 

break; 

case  c’  :write_horz_str(90,-l20,"  c  ",31); 

write_horz_str(-300,-140,"  No,  the  answer  must  be  d,  because" 

”  there  are  four  edges  that  start",31); 
write_horz_str(-300,-160,"  from  the  vertex  A.  Namely,  these" 

"  edges  are  AB,  AC,  AD,  and  AE",31); 

break; 

case  ’e’  :write_horz_str(90,-120,"  e  ',31); 

write_horz_str(-300,-140,"  No,  the  answer  must  be  d,  because" 

"  there  are  four  edges  that  start", 3 1 ); 
write_horz_str(-300,-160,"  from  the  vertex  A.  Namely,  these" 

"  edges  are  AB,  AC,  AD,  and  AE",31 ); 

break; 

case ’d’  :write_horz_str(90,-120.’  d  ",31); 

write Jiorz_str(-300,- 140,"  Yes,  you  are  right.  Deg  (A)  =4," 

"  because  there  are  four  edges  that  start", 31 ); 
write_horz_str(-300,-160,"  from  the  vertex  A.  Namely,  these" 

"  edges  are  AB,  AC.  AD,  and  AE",31 ); 

break; 

default  ;  break;  ) 


128 


wait("Exercise  4"); 

) 

/#***********************************************:tt**********************y 

void  wait(char  titleU) 

I 

int  tab,  width,line, mode; 
mode  =  getMode(& width); 
if  ((mode  ==  Oxl  i)  II  (mode  =  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title,  WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringC Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm_graph_exit(); 
cls(0); 

I 

/***********************************************************************/ 
static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
cliar  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  y )  I!  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(  30,-2 10,"  ”,31); 

} 
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switch  (ch)  { 

case  ’y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,”  ",31); 

break; 

default :  break; 


) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


^l***************  **************  J******************************************/ 


V 

*/ 


/*  this  function  handles  normal  tennination.  The  original  screen  and  cursor 
/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0. 

/***********************************************************************/ 
static  void  nomial_exit(void) 


srestore(savescm ); 
gotoxy_(crow  ,ccol ) ; 
if(_mouse)  mshidecurO; 
showcur(); 
exit(0); 

I 
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/*  PROGRAM  :  q5.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#biclude  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#biclude  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
********************************************************/ 


char  adapt,  Ch; 
int  color  =  2; 
bit  LBMEW1DTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect: 

static  bit  *savescm,crow,ccol; 
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************************************************* 
FUNCTION  DEFINITIONS 

**************************************************/ 


void  wait(char  titleJJ); 
void  question_5  (void); 
static  void  normal_exit(void); 
static  void  confirm_graph_exit(void); 


y********************** ******************** ******* 


MAIN  PROGRAM 


****************** ********************************^ 


main() 

I 

els  ( 1 ); 

adapt  =  getAdapter(); 
if  t adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

( 

setMode(16); 
cls(l ); 

} 

if  (adapt  ==  ’C’) 

I 

setMode(4); 

setCGAPalette(O); 

cls(l); 

I 

quest  ion_5(); 
setMode(3); 

} 
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^************************************** *********************************/ 
static  void  question_5(void) 

{ 

LINE  WIDTH  =  3; 


cls(l); 

drawRect(-309, 210, 310, -200,1 1); 

write_horz_str(-300 , 1 60 , "  For  the  following  Figure  give  the" 

"  degree  of  A  and  C.",31); 
drawLine(-50, 130,50, 130, 11);  /*  CB  */ 
aspect  =  1 .0; 

fiUOval(-50, 130, 3,16, aspect); 

fillOval(0, 80.3, 16, aspect); 

fillOval(50, 1 30,3 , 1 6,aspect); 

write_horz_char(-65 , 1 30,67 ,3 1 );  /*  C  */ 

writejhorz_char(60, 130,66,31);  /*  B  */ 

write_horz_chai(- 15,80,65 ,31);  /*  A  */ 

write  horz  str(-300,50,"  Choose  one  of  the  followings:",31); 

write_horz_str(-300,30,"  a)  deg  (A)  =  1,  deg  (C)  =  2",31); 

write_horz_str(-300,10,"  b)  deg  (A)  =  0,  deg  (C)  =  1",31 ); 

write_horz_str(-300,-10,"  c)  deg  (A)  =  1,  deg  (C)  =  3", 31); 

write_horz_str(-300,-30,"  d)  deg  (A)  =  0,  deg  (C)  =  3",31); 

write_horz_str(-300,-60,"  Type  the  letter  of  which  you  believe" 

”  is  true— >",31 ); 

Ch  =  waitkeyO; 

if(Ch==ESC)  confixm_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  =  ’b’)  II  (Ch  =  V)  II  (Ch  ==  ’d’) ))  { 
write_horz_str(0,-80,"  Please  type  one  of  a,  b,  c,  or  d",31); 

Ch  =  getch  (); 

if  ((Ch  ==  a’)  II  (Ch  =  ’b’)  II  (Ch  =  V)  II  (Ch  ==  ’N’)) 
write_horz_str(0.-80,"  ",31); 

} 

switch  (Ch)  ( 

case  ’a’  :write_horz_str(90,-60,"  a  ",31); 

write_horz_str(-300,-120,”  No,  the  answer  must  be  b,  because" 

"  there  is  only  one  edge  that  starts",31); 
write_horz_str(-300,-140,"  from  the  vertex  C,  wheras  there" 
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"  is  none  from  the  vertex  A.",31); 


break; 

case  ’b’  :write_horz_str(90,-60,"  b  ”,3 1 ); 

write_horz_str(-300,-120,"  Yes  you  are  right,  because" 

"  there  is  only  one  edge  tliat  starts",31); 
write_horz_str(-300,-140,"  from  the  vertex  C,  wheras  there” 

"  is  none  from  the  vertex  A.",31); 


break; 

case  ’c’  :write_horz_str(90,-60,"  c  ",31); 

write_horz_str(-300,-120,"  No,  the  answer  must  be  b,  because" 

”  there  is  only  one  edge  that  starts",31); 
write_horz_str(-300,-140,"  from  the  vertex  C,  wheras  there" 

"  is  none  from  the  vertex  A.",31); 

break; 

case  ’d’  :write_horz_str(90,-60,"  d  ",31); 

write_horz_str(-300,-120,"  No,  the  answer  must  be  b,  because” 

"  there  is  only  one  edge  that  starts",?  1); 
write_horz_str(-300,-140,"  from  the  vertex  C,  wheras  there" 

"  is  none  from  the  vertex  A.",31); 


break; 

default  :  break;  ) 
wait(  "Exercise  4"); 


) 

/************************* ******************* ***************************/ 


void  wait(char  title[]) 

{ 

int  tab, width, line, mode; 

mode  =  getMode(&width); 

if  ((mode  ==  Oxl  1 )  II  (mode  ==  0x12)) 


line  =  29; 


else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(t  itle,  WHITE  ,0); 
tab  =  (width  -  33  )/2; 


gotoxy(tab,line); 

writString(" Press  any  key  to  continue  WHITE, 0); 

if(waitkey(  )=ESC)  confinn_graph_exit(); 
cls(0); 


static  void  confirm_graph_exit(void) 


stmct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_niouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str( 30,-2 10,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31); 


switch  (ch)  | 

case  ’y’:  setMode(3); 
videoinit(); 
nonnal_exit(); 
break: 

case  ’Y’:  setMode(3); 
videoinitO; 
nonnal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break: 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 

default :  break;  } 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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^* **********************************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

y***********************************************************************/ 

static  void  normal_exit(void) 

I 


srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 


} 
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/*  PROGRAM  :  q6.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 
REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#inc)ude  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.li" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt,  Ch; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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^***** **************************** ***************** 
FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait(char  title[]); 
void  question_6  (void); 
static  void  nonnal_exit(void); 
static  void  confirm _graph_exit(void); 


MAIN  PROGRAM 

**********  ********!(<************  *******************/ 


main() 

{ 

els  ( 1 ); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 


setMode(4); 

setCGAPaJette(O); 

cls(l); 

I 

question_6(); 

setMode(3); 

I 
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static  void  question_6(void) 


LINEWIDTH  =  3; 
cls(l); 

drawRect(-309,2 1 0,3 1 0,-200, 1 1 ); 

write  Jiorz_str(-300, 160,"  Are  the  graphs  in  the  following  Figure" 

"  isomorphic  or  not?",31); 

LINEWIDTH  =  1; 

aspect  =  1 .0; 

draw  Arc(-50, 100,30,0,2700,1 1 , aspect); 

LINEWIDTH  =  3; 
drawLine(-50,l  00,-20, 100, 11); 
drawLine(-50, 1 00,-50,70, 1 1 ); 


fillOval(-50, 1 00,3, 16, aspect); 
fiUOval(-20, 1 00,3 , 1 6, aspect); 
fillOval(-50,70,3,16,aspect); 

write__hcrz_char(-65,100,65,31);  /*  A  */ 

write Jiorz_char(-50,60,66,3 1 );  /*  B  */ 

write_horz_char(-10,100,67,31);  /*  C  */ 


drawLine(50, 130,50,70,1 1); 
drawLine(50,70, 1 10,70, 11); 
drawLine(l  10.70,50,130,1 1); 

write_horz_char(35, 130,80,31);  /*  P  */ 

write_horz_char(35,70,81,31);  /*  Q  */ 

write_horz_char(l  15,70,82,31);  /*  R  */ 


fillOval(50, 1 30,3, 1 6, aspect); 
fillOval(50.70.3, 16, aspect); 
fillOvaK  1 10.70.3, 16, aspect); 


write_horz_str(-300,30,"  Enter  your  choice  as  y  or  n  —>”,31); 
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Ch  =  waitkeyO; 

if(Ch= ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’y’)  H  (Ch  ==  V)  II  (Ch  ==  ’Y’)  II  (Ch  =  ’N’)))  { 
write_horz_str(0,30,"  Please  type  y  or  n”,31); 

Ch  =  getch  (); 

if  ((Ch  =  ’y’)  II  (Ch  =  ’Y’)  II  (Ch  ==  ’n’)  II  (Ch  =  ’N’)) 
write_horz_str(0,30,"  ",31); 

) 

switch  (Ch)  | 

case  ’y’  :write_horz_str(-30,30,"  y  ”,31); 

write _horz_str(-30, 10,"  Yes,  you  are  right,  because  we",31); 
write_horz_str(-30,-10,"  can  find  a  bijection  f  from", 31); 
write_horz_str(-30,-30,"  the  set  (A,B,CJ  to  the  set",31); 
write_horz_str(-30,-50,"  (Q,P,RJ.  The  following  table",31); 
write_horz_str(-30,-70,"  shows  the  correspondence  between",31); 
write_horz_str(-30,-90, "  edges. ", 3 1 ); 
write_horz_str(-250,-55,"  |  U,V }  { f(U),f(V) )  ",3 1 ); 

write  Jiorz_str(-250, -85,"  |  A,B }  { P,Q )  ",3 1); 

write  _horz_str(-250,- 1 05 ,"  { B  ,C }  { Q,R }  ",3 1 ); 

write  _horz_str(-250,- 125,"  ( A,C  |  { P,R }  ",3 1 ); 

drawLine(-260,-40,-40,-40, 1 1 ); 
drawLine(-260,-70,-40,-70, 1 1 ); 
drawLine(-260,-140,-40,-140, 1 1 ); 
drawLine(-260, -40, -260,-1 40, 1 1 ); 
drawLine(-40,-40,-40,-140, 1 1 ); 
break; 

case  ’Y’  :write_horz_str(- 30,30,”  y  ",31); 

write_horz_str(-30,10,"  Yes,  you  are  right,  because  we", 31); 
write_horz_str(-30,-10,"  can  find  a  bijection  f  from”, 31); 
write_horz_str(-30,-30,"  the  set  {A,B,CJ  to  the  set",31); 
write_horz_str(-30,-50,"  (Q,P,R|.  The  following  table",31); 
write_horz_str(-30,-70,"  shows  the  correspondence  between", 31 ); 
write_horz_str(-30,-90,"  edges.",31); 
write  _horz_str(-250, -55,"  |  U,  V }  { f(U),f(V) ) "  ,31); 

write_horz_str(-250,-85,"  { A,B }  {  P,Q }  ",3 1 ); 

write horz_str(-250,- 1 05 ,"  |  B  ,C  |  |  Qdl }  ",3 1 ); 
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write_horz_str(-250,- 125," { A,C )  { P,R )  ",3 1 ); 

drawLine(-260,-40,-40,-40, 1 1 ); 
drawLine(-260,-70,-40,-70, 1 1 ); 
drawLine(-260,-140,-40,-140,l  1 ); 
drawLine(-260, -40, -260, -140,1 1 ); 
drawLine(-40,-40,-40,- 140,1 1); 
break; 

case  ’n’  :write_horz_str(-30,30,"  n  ”,31); 

write_horz_str(-30,10,"  No,  the  answer  must  be  yes,  because",31); 

write  Jiorz_str(-30,- 10,"  we  can  find  a  bijection  f  from",31); 

write_horz_str(-30,-30,"  the  set  j  A,B,C)  to  the  set",31); 

write_horz_str(-30,-50,"  {Q,P,R}.  The  following  table",31); 

write_horz_str(-30,-70,"  shows  the  correspondence  between",31); 

write_horz_str(-30,-90,"  edges.", 3 1 ); 

write  _horz_str(-250, -55,"  j  U,V }  { f(U),f(V)J  ",3 1 ); 

write  _horz_str(-250, -85, "J  A,B }  {P,Q}",3) ); 

write_horz_str(  -250,- 1 05 ,"  { B  ,C }  { Q,R }  ",3  a  >; 

write  Jiorz_sti  (-250,- 1 25."  { A,C }  { P,R }  ",3 1 ); 

drawLme(-260,-40.-40,-40,l  1); 

drawLine(  -260.-70.-40,-70,1 1 ); 

drawLine(-260.-140, -40, -140.1 1 ); 

drawLme(-260, -40, -260,-140,1 1 ); 

drawLine(-40,-40,-40,-140,l  1 ); 

b'  ak; 

case  ’N’  :write_horz_str(-^0,30,"  N  ",31); 

write_horz_str(-30,10,"  No,  the  answer  must  be  yes,  because",31), 
write_horz_str(-30,-10,”  we  can  find  a  bijection  f  from", 31); 
write_horz_str(-30,-30,"  the  set  {A  C}  to  the  set",31); 
write_horz_str(-30,-50,"  (Q.P,R).  *  ie  following  table", 31); 
write_horz_str(-30.-70,"  shows  the  correspondence  between",31); 
write_horz_str(-30,-90,"  edges.",31); 
write_horz_str(-250,-55,"  ( U,V }  ( f(U),f(V )  |”,3 1 ); 

write_horz_str(-2^0,-85,"(A,B)  (P,Q)",31 ); 

write_horz_str(-250,- 105,"  ( B,C )  { Q,R }  ",3 1 ); 

write_horz_str(-250,- 1 25,"  { A,C )  { P,R }  ",3 1 ); 

dr  aw  Lute  (-260, -40, -40, -40, 1 1 ); 
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drawLine  (,-260, -70, -40,-70, 1 1 ); 
drawLine(-260,- 140,-40,- 140,1 1); 
drawLine(-260, -40, -260,-140,1 1); 
drawLine(-40,-40,-40,-140, 1 1 ); 
break; 

default  :  break;  } 
vait("Exercise  6"); 


) 

j+  ***************************************  ******************** ***********/ 

void  waiPch. :  title[J) 


int  tab, width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x1 1)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writStringltitle, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringl  "Press  any  key  to  continue  WHITE,0); 
if(waitkey()==ESC)  confirm _graph_exit(); 
cls(0); 

> 

static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 


write_horz;_sti( -300,-2 10,  Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  ( ); 

wh:!e  (!((ch  ==  y )  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
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write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-2 1 0,"  "  ,3 1 ); 

) 

switch  (ch)  { 

case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinitO; 
nonnal_exit(); 
break; 

case  ’n’: write _liorz_str( -300,-2 10,"  ”,31); 

break; 

case  ’N':write_horz_str(-300,-210,"  ”31); 

break; 

default ;  break; 


if(_mouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 

/***************************%******************************************* 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


/*******+******************+**********+************ 


static  void  normal_exit(void) 


srestore(savescm); 
gotoxy_(crow,ccol ); 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 
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/*  PROGRAM  :  q7.c 
AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Graphs  and 
their  Representations". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.li" 

#inelude  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

jit********************************************************/ 


char  adapt,  Ch; 
inf  color  =  2; 
int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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/**** *******  Jit************************************** 

FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait(char  title[J); 
void  question_7  (void); 
static  void  normaI_exit(void); 
static  void  confiim_graph_exit(void); 


^*  ********************* ******** ******************* 
MAIN  PROGRAM 

*************************************************/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 


setMode(16); 

cls(l); 


if  (adapt  ==  ’C’) 

I 

setMode(4); 
setCGAPalette(O); 
cls(  1 ); 

} 

quest  ion_7(); 
setMode(3); 
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I***********************************************************************/ 

static  void  question_7(void) 

{ 

UNEWIDTH  =  3; 
cls(l); 

drawRect(-309, 210,3 10,-200,1 1 ); 

write _horz_str( -300, 1 60,"  Are  the  graphs  in  the  following  Figure" 

"  isomoipliic  or  not?", 31); 

LINEWIDTH  =  1; 
aspect  =1.0; 

drawOval( -50,100, 30, 1  l,aspect); 

LINEWIDTH  =  3; 
drawLine(-50.100, -20, 100,1 1); 
drawLine(-50, 100,-50,70,1 1); 
drawLine(-50, 1 00,-78, 105, 1 1 ); 
fill0val(-50,100,3,16,aspect); 
fillOval(-20, 1 00,3 , 1 6, aspect ); 
fillOval(-50,70,3,16,aspect); 
fillOval(-78, 1 05 ,3 , 1 6, aspect ); 

write_horz_char(-65,100,65,31);  /*  A  */ 

write_horz_char(.-50,60,66,3 1 );  /*  B  */ 

write_horz_char(-10,100,67,3 1 );  /*  C  */ 

write_horz_char(-93,105,68,31);  /*  D  */ 

drawRect(50, 130,100, 70,11); 
drawLine(50, 130, 100,70,1 1); 
drawLine(50,70, 100, 130,1 1); 
write _horz_.char(35, 130,80,31);  /*  P  */ 

write_horr_char(35, 70,8 1,31);  /*  Q  */ 

write_horz_char(  1 15,70,82,31);  /*  R  */ 

write_horz_char(  115,130,83,31);  /*  S  */ 

fihOval(50, 130,3, 16, aspect); 
fU10val(50, 70,3, 16, aspect); 
fillOval(100, 70,3, 16, aspect); 
fiJ10val(100,130,3,16,aspect); 
fillO  val(75 , 1 00,3 , 1 6,  aspect ); 
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write_horz_str(-300,30,"  Enter  your  choice  as  y  or  n  — >",31); 

Ch  =  waitkeyO; 

if(Ch=ESC)  conf irm_g  raph_ex  it  ( ) ; 

while  (!((Ch  ==  ’y’ )  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  =  ’N’)))  { 
write_horz_str(0,30,"  Please  type  y  or  n",31); 

Ch  =  getch  (); 

if  ((Ch  =  ’y’>  H  (Ch  =  *Y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’N’)) 
write_horz_str(0,30,"  ”,31);  } 

switch  (Ch)  { 

case  ’y’  :write_horz_str(-30,30,"  y  ”,31); 

write_horz_str(-30,10,"  No,  they  are  not  isomorphic,",31); 
write_horz_str(-30,-10,"  because  one  of  the  graphs", 31); 
write_horz_str(-30,-30,"  has  five  vertices  while  the",31); 
write_horz_str(-30,-50,"  other  one  has  four.",31); 
break; 

case  ’Y’  :write_horz_str(-30,30,"  Y  ",31); 

write_horz_str(-30,10,"  No,  they  are  not  isomorphic,”,31); 
write_horz_str(-30,-10,"  because  one  of  the  graphs", 31); 
write_horz_str(-30,-30,"  has  five  vertices  while  ‘’’e",3l); 
write_horz_str(-30,-50,"  other  one  has  four.", 3*  , 
break; 

case  ’n’  :write_horz_str(-30,30,"  n  ",3i); 

write_horz_str(-30,10,"  No,  they  are  not  isomorphic,",31); 
write_horz_str(-30,-10,"  because  one  of  the  graphs”,31); 
write_horz_str(-30,-30,"  has  five  vertices  while  the",31); 
write_horz_str(-30,-50,"  other  one  has  four.",31); 
break; 

case  ’N’  :write_horz_str( -30,30,"  N  ",31); 

write_horz_str(-30,10,"  No,  they  are  not  isomorphic,".31); 
write_horz_str(-30,-10,"  because  one  of  the  graphs",31); 
write_horz_str(-30,-30,"  has  five  vertices  while  the",31); 
write_horz_str(-30,-50,"  other  one  lies  four.",31); 
break; 

default  :  break;  ) 

wait("Exercise  7"); 


) 


void  wait(char  title[]) 

I 

int  tab, width Juie ,mode ; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxll)  II  (mode  =  0x12)) 
line  =  29; 
else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writString("  Press  am  key  to  continue  WHITE, 0); 

if(waitkey(  )==ESC)  confirm_graph_exit(); 
cls(0); 


^***i<****%ik********************i|<****<i*******************i(t******ik*%******y 

static  void  confinn_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  liide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecurQ; 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y* )  II  (ch  ==  ’n’)  II  (ch  =  ’Y’)  II  (ch  ==  ’N’)))  | 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-2 10,"  ",3 1 ); 

> 

swilcli  (ch)  { 

Cci.  e  ’y’:  setMode(3); 
videoinit(); 
nomial_exit(); 
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break; 

case  *Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,’'  ”,31); 

break: 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


^****************************** ************* ****************************^ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^** *********** **********************************************************^ 
static  void  normal_exit(void) 

( 

srestore(savescm ); 
gotoxy_(  cro  w  xcol ) ; 

if(_mouse)  mshidecurO; 

showcur(); 

exit(0); 
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/*  PROGRAM  :  paths. c 
AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  the  tutorial  for  the  paths  and  circuits. 
MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

/*  header  files  */ 

#include  <process.h> 

#include  "cxldef.h" 

#include  "cxlkey.h” 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

#if  defined(__TURBOC _ ) 

#include  <dir.h> 

#else 

#include  <direct.h> 

#endif 

#if  dtfmeu(M_Io  >,'  3t<x  -leiinccK  ZTC _ ;  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findflrst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ffjname  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#<.lefine  ff_attrib  attribute 

#endif 

#define  _GRAPH  T_DEFINED 


/*  Turbo  C  */ 

/*  all  others  */ 
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/*  function  prototypes  */ 

static  void  add_shadow  (void); 

static  void  confirm_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  do_nothing  (void); 

static  void  error_exit  (int  ermuni); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  normal_exit  (void); 

static  void  press_a_key  (int  wrow); 

static  void  quit  window  (void); 

static  void  restore_cursor(void); 

static  void  short  delay  (void); 

static  void  size_window  (int  nerow,int  necol); 

static  void  example_3_10  (void); 

static  void  example_3_l  1  (void); 

static  void  example_3_l  2  (void); 

static  void  example_3_l  3  (void); 

static  void  exainple  _3_14  (void); 

static  void  example_3_15  (void); 

static  void  example_3_16  (void); 

static  void  example_3_  17  (void); 

static  void  example__3_  18  (void); 

static  void  example_3_19  (void); 

static  void  example_3_30  (void); 

static  void  example_3_3 1  (void); 

static  void  example_3_32  (void); 

static  void  example_3_39  (void); 

static  void  example_3_40  (void); 

static  void  example_3_41  (void); 

static  void  example_3_42  (void); 

static  void  Pex_3_10  (void); 

static  void  Pex_3_l  1  (void); 

static  void  Pex_3_  12  (void); 

static  void  Pex_3_13  (void); 

static  void  Pex_3_14  (void); 

static  void  Pex_3_15  (void); 
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static  void  Pex_3_16  (void); 
static  void  Pex_3_17  (void); 
static  void  Pex_3_l  8  (void); 
static  void  Pex_3_19  (void); 
static  void  Pex_3_30  (void); 
static  void  Pex_3_3 1  (void); 
static  void  Pex_3_32  (void); 
static  void  Pex_3_39  (void); 
static  void  Pex_3_42  (void); 
static  void  Pex_3_40  (void); 
static  void  Pex_3_4i  (void); 

static  void  definition_3_6(void); 
static  void  definition_3_7(void); 
static  void  definition_3_8(void); 
static  void  definition_3_9(void); 
static  void  definition_3_10(void); 
static  void  definition_3_l  l(void); 
static  void  definition_3_12(void); 
static  void  defuiition_3_13(void); 
static  void  definition_3_14(void); 
static  void  defuiition_3_15(void); 
static  void  definition_3_16(void); 
static  void  Pdef_3_6(void); 
static  void  Pdef_3_7(void); 
static  void  Pdef_3_8(void); 
static  void  Pdef_3_9(void); 
static  void  Pdef_3_10(void); 
static  void  Pdef_3_l  l(void); 
static  void  Pdef_3_12(void); 
static  void  Pdef_3_15(void); 
static  void  Pdef_3_16(void); 
static  void  Pthm_3_3(void); 
static  void  Pthm_3_4(void); 
static  void  Ptlun_3_5(void); 
static  void  paths_circuits  (void); 


I 
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static  void  theorem_3_3  (void); 

static  void  theorem_3_4  (void); 

static  void  theorem_3_5  (void); 

static  void  euler_circuits_and_paths(void); 

static  void  euler_circuit_algorithm(void); 

static  void  BFS_algorithm(void); 

static  void  dijkstra_algorithm(void); 

static  void  introduction  (void); 

static  void  hamilton  (void); 

static  void  isomorplusm(void); 

static  void  exercises(void); 

static  void  Peuler_circuits_and_paths(void); 

static  void  Peuler_circuit_algorithm(void); 

static  void  PBFS_algorithm(void); 

static  void  Pdijkstra_algorithm(void); 

static  void  Pintroduction  (void); 

static  void  Phamilton  (void); 

static  void  Pisomorphism(void); 

static  void  Pexercisel(void); 

static  void  Pexercise2(void); 

static  void  Pexercise3(void); 

static  void  Pexercise4(void); 

static  void  Pexercise5(void); 

static  void  Pexercise6(void); 

static  void  Pexercise7(void); 

static  void  Pexercise8(void); 

static  void  Pexercise9(void); 

static  void  PexerciselO(void); 

static  void  exercise  I  (void); 

static  void  exercise2(void); 

static  void  exercise3(void); 

static  void  exercise4(void); 

static  void  exercise5(void); 

static  void  exercise6(void); 

static  void  exercise7(void); 

static  void  exercise8(void); 
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static  void  exercise9(void); 
static  void  exercise  10(void); 
static  void  following iO(void); 
static  void  followingl  l(void); 
static  void  follow ingl2(void); 
static  void  following  13(void); 
static  void  following  14(void); 
static  void  following  15(void); 
static  void  following  16( void); 
static  void  following  17(void); 
static  void  following  18(void); 
static  void  following  19( void); 
static  void  following39(void); 
static  void  following40(void); 
static  void  following41(void); 
static  void  following42(void); 
static  void  following30(void); 
static  void  following31(void); 
static  void  fol!owing32(void); 
static  void  followingthm_3_3(void); 
static  void  ex_3_18cont(void); 
static  void  Pex_3_18cont(void); 

I**** *********** a******************************************************  ifj 

/*  miscellaneous  global  variables  */ 
static  int  *savescm,crow,ccol; 
static  WINDOW  wllO]; 
static  char  ssan[10J; 

/*  error  message  table  */ 
static  char  *error_text(j=  { 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  -=  1,  windowing  error  */ 

"Syntax.  CXLDEMO  [-switcheslMiW 
'\t  -c  =  CGA  snow  eliminationVi" 

"st  -b  =  BIOS  screen  writingNn” 

"St  -m  =  force  monochrome  text  attributes". 
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Memory  allocation  error" 


); 

/*  miscellaneous  defines  */ 

#defne  SHORT_DELAY  18 
#de*ine  H_WINTITLE  33 

y**************************************************** *******************y 

/*  this  function  will  add  a  shadow  to  the  active  window  */ 

static  void  add_shadow(void) 

I 

wshadow(LGREYIJBLACK); 

) 

y+  +  ************************4<***********  +  +  ******<<****  +  *  +  ***  +  *  +  +  *****  +  **  +  *y 

/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  tenninates  the  demo  program.  */ 

/+*+**+***+*****************+**++****+*+++*+%>.+++**+*++*++*********+**+*/ 
static  void  confirm_quit(void) 

I 

struct  _onkey_t  *kblist; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if( !  wopen(9,26. 1 3 .55 ,0,WHUEI_BROWN,WHITELBROWN))  err  -r_exit(l); 
add_shadow( ): 

wputs("Vi  Quit  demo,  are  you  sure?  \033A\156Y\b"); 

clearkeysO; 

showcur( ); 

if(wgetchf("YN",’Y’)==’Y’)  normal  _cxit(); 

wclose(); 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 
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y******************************************  *****************************y 

/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 

*+***+********+*+**********+**+***************+*******+*++**+++*++*+**/ 
static  void  disp_sure_msg(void) 


wprints(0,2,WHITEI_BLUE,"Are  you  sure?"); 


y***********************************************************************y 

/*  this  function  is  used  as  a  dummy  function  for  several  menu  items  in  the  */ 

/  ‘  pull-down  demo  */ 

y***********************************************************************/ 
static  void  do_nothing(void) 


} 

y* *************************************** ****** ************ ****** ******* 

/*  this  function  handles  abnormal  termination.  If  it  is  passed  an  error  code  of  1 ,  */ 

/*  then  it  is  a  windowing  system  error.  Otherwise  the  error  message  is  looked  up  */ 

/*  in  the  error  message  table.  */ 

********************************************************************** 

static  void  error_exit(int  ermum) 

I 

if(errnum)  (  printf(MNn%s\n,’,(errnum==l)?werrmsg():error_text|errnum]); 
exit(ermum);  } 


y*  ********************************************************************** 

/*  this  function  handles  nonnal  termination.  The  original  screen  and  cursor  */ 

I*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

y* ********************************************************************** 
static  void  nomnal_exit(void) 


srestore(savescrn); 
gotoxy  _(crow  ,ccol ); 
if(_mouse)  mshidecur( ); 
showcur( ), 
exit(0); 

} 
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/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

/****%***********************************%******************************/ 


static  void  press_a_key(int  wrow) 

{ 

register  int  attrl; 
register  int  attr2; 

attrl=(YELLOW)l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo.active->wattr»4)«4); 
wcenters(wrow, attrl  ."Press  a  key"); 


wprints(wrow,0,LGREYI_RED,”Pgup/Pgdn”); 
hidecur( ); 

if(waitkey( )==ESC)  confinn_quit(); 
wcenters(wrow,attrl,"  "); 

wprints(\vrow.0,attr2."  "); 


static  void  short_delay(void) 


delay_(SHORT_DELAY ); 


/***********************************************************************/ 
/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  IQjuit  menu  items.  */ 

jit  jfcjfr^.Jcjfc*******************#*********************************************^ 

static  void  quit_window(void) 

( 

static  WINDOW  handle=0; 
if(handle)  { 

wactiv(handle); 
w'close( ): 
handle=();  ) 
else  ( 

handle=wopen(  14,41 ,17, 70,0,  YELLOWI_RED,WHITEI_RED); 
wputs("  Quit  takes  you  back  to  theYi  demo  program’s  main  menu.”);  ) 
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/♦I********************************************************************** 

static  void  restore_cursor(void) 

I 

wtextatt  r(  W  HITEI_MAGENT  A ) ; 
showcur(); 


} 

static  void  size_window(int  nerow.int  necol) 

I 


wsize(nerow, necol); 
short_de!ay(); 


I 

static  void  move_window(int  nsrow,int  nscol) 


if(wmove(nsrow,nscol))  error_exit(l ); 
short_delay(); 

1 

/* *******************************************%**************************/ 
void  main() 

I 

paths_circuits(); 

} 

static  void  paths_circuits  (void) 

{ 

register  iiit  *scrn; 

if((scm=ssave())==NULL)  error_exit(3); 
cclrscm(LGREYLGREEN); 
introduction) ); 
srestore(scni); 

} 
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static  void  introduction  (void) 


/*%********************************%***%* *%************%*********/ 
/*  attach  [Fageup]  to  the  introduction  function  */ 
setonkey(0x4900,Pintroduction,0); 

^tr***************************************************************/ 


/*  attach  [Pagedown]  to  the  definition_3_6  function  */ 
setonkey(0x5 100,Pdef_3_6,0); 


if((w[  1  ]=wopen(3 ,3 , 1 7 ,74,3 ,LC YANI_B LUE, WHITELB LUE))=0 )  error_exit(  1 ); 
wtitle( "[Paths  and  Circuits]", TCENTER.JLGREYIBROWN); 
wlielpcat(H_W!NTITLE); 

wputsw("  As  we  have  seen,  graphs  can  be  used  to  describe  a  variety” 

"  of  situations.  In  many  cases  we  want  to  know  whether  it  is" 

"  possible  to  go  from  one  vertex  to  another  by  following" 

"  a  route  using  the  edges.  In  other  cases,  it  may  be  necessary" 

"  to  perform  a  test  that  involves  finding  a  route  through  all" 

"  the  vertices  or  over  all  the  edges.  While  many  situations" 

"  can  be  described  by  graphs  as  we  have  defined  them,  there" 

"  are  ethers  where  it  may  be  necessary  to  allow  an  edge  from" 

"  a  vertex  to  itself  or  to  allow  more  than  one  edge  between" 

"  vertices.  For  example,  when  a  road  system  is  being  described" 

",  there  can  be  two  roads,  an  interstate  highway  and  an  older" 

"  two-lane  road,  between  the  same  two  towns.  There  could  even" 

"  be  a  scenic  route  starting  and  ending  at  the  same  town."); 
press_a_key(  1 2); 
wclose(); 
definition_3_6(); 
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?*******************************************************> !<***************/ 
void  definition_3_6(void) 

{ 


/*  ************************************************ ***************/ 


/*  attach  [Pageup]  to  the  introduction  function  */ 
setonkey(0x4900,Pintroduction,0); 


/***** ***************************************** ******************/ 


/*  attach  [Pagedown]  to  the  example_3_10  function  */ 
setonkey(0x5 1 00,Pex_3_l  0,0); 

^****************************************************************^ 


if((w[  1  j=wopen(6, 1 0, 1 8 ,70,3  ,LC  Y  AN  l_M  AGENT A ,  WHITEI_MAGENTA  ))=0) 
error_exit(  1 ); 

wtitle("[Graph  Representations  -  Definition_3_l]", 

TCENTER,_LGRE  YIBRO  WN ); 
whelpcat(H_WlNTITLE); 

wputsw("  A  multigraph  is  a  generalization  of  a  graph  that  consists  of' 

"  a  finite  set  of  vertices  and  a  finite  set  of  edges.  Unlike  a" 

"  graph,  a  multigraph  can  contain  edges  from  a  vertex  to  itself 
"  and  several  edges  between  the  same  two  vertices.  An  edge  from" 

"  a  vertex  to  itself  is  called  a  loop.  When  there  is  move  than" 

"  one  edge  between  two  vertices,  these  edges  are  called  parallel" 

"  edges.  It  is  important  to  note  that  a  graph  is  a  special  kind" 

"  of  multigraph.  Thus,  all  the  definitions  given  for  multigraphs" 

"  apply  to  graphs  as  well."); 
press_a_key(  10); 
wclose(); 
following  1 0(); 


I 
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void  following  10(void) 


/*  attach  [Pageup]  to  the  definition_3_6  function  */ 
setonkey(0x4900,Pdef_3_6,0); 

^***********************j(t********************************itt*******^ 


/*  attach  [Pagedown]  to  the  definition_3_7  function  */ 
setonkey(0x5 1 00,Pdef_3_7,0); 


if((wl  1  ]=wopen(20,42,24,77,3,LCY  ANI_BLUE,  WHITEl_BLUE))===0) 
error_exit(  1 ); 
whelpcat(H_N\^NTITLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseall(); 
example_3_10(); 


I********************************************************************** 

void  exaniple_3_10(void) 

I 

register  int  *scrn; 

if((scm=ssave(  ))==NULL)  error_exit(3 ); 
spawnl(P_WAJT,"ex3_10.exe",NULL); 
srestore(scrn); 
definition_3_ ';); 
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/***********  *****:<<****!|<*!|C*!|<**  ************  *****  ****  ****%*  ****************  J 

void  definition_3_7(void) 


f************************************************************ *****/ 


/*  attach  [Pageup]  to  the  example_3_10  function  */ 
setonkey(0x4900,Pex_3_10,0); 

I*************** ************************************************** I 

/*  attach  [Pagedown]  to  the  example_3_l  1  function  */ 
setonkey(0x5100,Pex_3_l  1,0); 

j*****************************************************************l 

\ 


if((w[l]=wopen(4,3,12,74,3,LCYANLBLUE,WHITEI_BLUE))=0)  error_exit(l); 
wtitle("[A  path  in  a  graph]", TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTITLE); 

wputsw("  A  path  of  length  k  in  a  graph  is  a  sequence  of  vertices" 

"  VO,  VI,  V2,...,Vk  such  that  for  i  =  1,  2,...,k,{ Vi-1,  Vi}" 

”  is  an  element  of  E.  The  length  of  this  path  is  n,  the  number" 

"  of  edges  listed.  We  note  that  U  is  a  path  to  itself  of  length" 

"  0."); 

press_a_key(5 ); 

if((  w[2]=wopen(  1 4,3 ,20,74,3 ,LCY  ANI_CY  AN,WHITEI_CY  AN))=0) 
error_exit(l ): 

wtitle("[Paths]'',TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

wputsw("  In  a  path  the  vertices  need  not  be  distinct  from  eachother" 

"  and  likewise  some  of  the  edges  can  be  the  same.  When  there" 

"  can  be  no  chance  of  confusion  a  path  can  be  represented  by  the" 

"  vertices  VI,  V2,...,  Vn+1  only  or  by  the  edges  el,  e2,..." 

",  en  only."); 
press_a_key(4); 
wclose(); 
wcloseO; 
following  1 1( ); 
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void  followingl  l(void) 


/*  attach  [Pageup]  to  the  definition_3_7  function  */ 
setonkey(0x4900,Pdef_3_7,0); 


/*  attach  [Pagedown]  to  the  definition_3_8  function  */ 
setonkey(0x5 100,Pdef_3_8,0); 


/*****************************************************************/ 


if((w[  l]=wopeii( 20,42, 24, 77,3 ,LCYANLGREEN,WH1TEI_GREEN))==0) 
error_exit(  1 ); 
whelpcat  ( HWINTTTLE ); 
wputsw(”Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseall(); 
exainple_3_l  1(); 


^******************************************** *************************** ^ 


void  exaniple_3_l  l(void) 

( 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P_WAIT,''ex3_l  1  .exe”  JNULL); 
srestore(scm ); 
definition_3_8(); 


f*  ********************************************************************** 

/ 

void  definition_3_8(void) 


I*  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  * 


********************************* 


************^ 


/*  attach  [Pageup]  to  the  example_3_l  l  function  */ 
setonkey(0x4900,Pex_3_l  1,0); 

^*  ***************************************************************/ 


/*  attach  [Pagedown]  to  the  exainple_3_12  function  */ 
setonkey(()x?  1 00,Pex_3_l  2,0); 
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if((w[l]=wopen(2, 3, 8,74,3  ,LCYANLMAGENTA,WHITELMAGENTA))==0) 
error_exit(l ); 

wtide("  [Simple  Path]",TCENTER,_LGREYIBROWN); 
whelpcat(HJWINTTTLE); 

wputsw("  A  path  provides  a  way  of  describing  how  to  go  from  one  vertex" 

"  to  anodier  by  following  edges.  A  U-V  path  need  not  be  an" 

"  efficient  route;  diat  is,  it  may  repeat  vertices  or  edges." 

"  However,  a  U-V  simple  path  is  a  path  from  U  to  V  in  which" 

"  no  vertex  is  repeated."); 
press_a_key(4); 

if((w[2]=wopen(l  1,3, 18,74,3 ,LCYAJNI_BLUE,WHITELBLUE))=0)  error_exit(l); 
wtitle("[Simple  Path]",TCENTER,_LGREYIBROWN); 
whelpcat(H_W!NTITLE); 

wputsw("  There  are  no  simple  paths  of  length  1  or  more  from  a  vertex” 

"  to  itself.  Furthermore,  a  simple  path  does  not  have  loops" 

"  or  pairs  of  parallel  edges  in  it.  In  some  sense,  a  simple  path" 

"  is  an  efficient  route  between  vertices,  whereas  a  path  allows" 

"  wandering  back  and  forth,  repeating  vertices  and  edges."); 
press_a_key(5 ); 
wcloseall(); 
following  12(); 


void  following  12(void) 

{ 


/*  attach  [Pageup]  to  the  definition_3_8  function  */ 
setonkey(0x4900,Pdef_3_8,0); 


/*  attach  [Pagedown]  to  the  theorem_3_3  function  */ 
setonkey(0x5 100,Pthm_3_3,0); 


if((w[l]=wopen(20,42, 24,77,3 ,LCYANI_CYAN,WHITELCYAN))==0) 
error_exit(  1 ); 
whelpcat(H_WIN  Ill  LE); 
wputsw( "Press  a  key  to  see  the  graph....”); 
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press_a_key(2); 

wcloseallQ; 


exaniple_3_12(); 


void  example_3_12(void) 

( 

register  im  *scm; 

if((scm=ssave())=NULL)  error_exit(3); 
spawnI(P_W  AIT, "ex3_12.exe", NULL); 
srestore(scm); 
followiiigtlun_3_3(); 


/***********************************************************************/ 
void  followingthm_3_3(void) 


/* +  *********  +  **  +  **********  +  +  *  +  *  +  *********  +  **  +  **  +  +  +  *************  >|y 

/*  attach  [Pageup]  to  the  example_3_12  function  */ 
setonkey(0x4900,Pex_3_l  2,0); 

/ft**************************************************************/ 

/*  attach  [Pagedown]  to  the  definition_3_9  function  */ 
setonkey(0x5 100,Pdef_3_9,0); 

^**** *********************************************** ************^ 
if((w[  1  ]=wopen(20,42,24,77,3,LCYANI_BLUE,WHITEI_BLUE))==0) 
error_exit(  1  ); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseallO; 
theoreni_3_3( ); 

) 
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****★*★**★*******★*★****★**★*****★******★********★★******★♦*★******★** 
void  theorem_3_3(void) 

{ 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P  JW  AIT, "thm3_3.exe"  ,NULL); 
srestore(scm); 
definition_3_9( ) ; 


y******Jte****************  +  ***l(<s(c********!|<*  +  *********Jt!*********!(t****!|e*l|t*%*:|y 


static  void  definition_3_9(void) 


^**************************************************** 


**********/ 


/*  attach  [Pageup]  to  the  theorem_3_3  function  */ 
setonkey(0x4900,Pthm_3_3 ,0); 


/*  attach  [Pagedown]  to  the  example_3_13  function  */ 


setonkey(0x5100,Pex_3_13,0); 

^♦itt***********************************************************/ 


if((w[l]=wopen(13,3,20,74,3,LCYANI_BLUE,WHITELBLUE))==0)  error_exit(l); 
wtitleC’fComiected  Grapli]",TCENTER,_LGREYIBROWN); 
wheIpcat(H_WINTITLE); 

wputsw("  Vertices  U  and  V  in  a  multigraph  are  called  connected  if 
"  there  is  a  path  between  them.  A  multigraph  G  is  connected  if' 

"  every  two  vertices  of  G  are  connected.  Thus,  in  a  connected  " 

"  multigraph  we  can  go  from  any  one  vertex  to  another  by  following" 

"  some  route  along  the  edges."); 
press_a_key(5); 
wclosef); 
following  13(); 

) 
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void  following  13(void) 

I 

/fr******************************************************,,,,,,,,,,,,**,,,^ 

/*  attach  [Pageup]  to  the  defmition_3_9  function  */ 
setonkey(0x4900,Pdef_3_9,0); 

/ * ******************** * * * ** ******** * * * * * * * * * * * * * * ** * * * * * * * * * * * ^ * i 

/*  attach  [Pagedown]  to  the  definition_3_10  function  */ 
setonkey(0x5 100,Pdef_3_10,0); 

/*  *************  *  **********  *  *****  *  ***  *  *  «  *  «  *  *  *  *  *  *  *  *  *  *  *  ** 
if((w[lJ=wopen(20,42,24,77,3,LCYANI_RED,WHITEI_RED))==0) 

error_exit(  1 ); 
whelpcat(HJWINTTTLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseall(); 
example_3_13(); 

) 

void  example_3_13(void) 


register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P_WAIT,"ex3_13.exe",NULL); 
srestore(scrn); 
definition_3_l  0( ); 


) 

Z^***************************************^^*^,^,^.^,^^^^^^^^ 

static  void  definition_3_10(void) 


/*  attach  [Pageup]  to  the  example_3_13  function  */ 

setonkey(0x4900,Pex_3_13,0); 


/*  attach  [Pagedown]  to  the  exainple_3_14  function  */ 
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setonkey(0x5 1 00,Pex_3_14,0); 

I****** ****** ********** ************* * ******* *********************/ 

if((w[l]=wopen(8,3,I4,74,3,LCYANLBLUE,WHlTEI_MAGENTA))==0) 
error_exit(  I ); 

wtitle("[A  Cycle]",TCENTER,_LGREYIBROWN); 
whelpcat(H_WlNTITLE ); 

wputsw("  A  path  in  a  graph  is  called  a  cycle  (or  circuit)  if  the  first" 

"  and  last  vertices  in  the  path  are  the  same  vertex  and  no  edges" 

"  in  the  path  are  repeated.  Thus  a  cycle  in  a  graph  must  have" 

"  at  least  three  edges."); 
press_a_key(4); 
wclose(); 
following  14(); 

} 


void  following  14( void) 

{ 


/*  attach  f Pageup]  to  the  definition_3_J0  function  */ 
setonkey(0x4900,Pdef_3_10,0); 

y******************************************************************/ 


/*  attach  [Pagedown]  to  the  euler_circuits_and_paths  function  */ 
setonkey(0x5100,Peuler_circuits_and_paths,0); 
/*************************************★******★*********************/ 


if((w[l  ]=wopen(20,42,24,77,3,LCYANLMAGENTA,WHITELMAGENTA))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw( "Press  a  key  to  see  the  graph....”); 
press_a_key(2); 
wcIoseallO; 
example_3_l4(); 
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/***********************************************************************/ 


void  example_3_14(void) 

I 


register  int  *scm; 

if((scm=ssave( )  )=NULL)  error_exit(3 ); 
spawnl(P_WAIT,"ex3_14.exe”3SULL); 
siestore(scm); 
euler_circuits_and_paths(); 


'■***************  +  ** 


static  void  euler_circuits_and_paths(void) 


J****************************************************************J 

/*  attach  [Pageup]  to  the  example_3_14  function  */ 
setonkey(0x4900,Pex_3_  14,0); 

/***************************■'************************************/ 
/*  attach  [Pagedown]  to  the  definition_3_l  1  function  */ 
setonkey(0x5 100,Pdef_3_l  1 ,0); 

^* ********  ;.******************************************************* 
if((w[  1  J=wopen(4,3,14,74,3,LCYAMI_BLUE,WHlTEi_MAGENTA))==0) 
error_exit(l ); 

vtilleC  l Euler  Circuits  and  Patlis]",TCENTER,_LGREYIBROWN); 
whelpcat(  H_W  1NTITLE ); 

wputsw("  A  postman  delivers  mail  everyday  in  a  network  of  streets." 

"  In  order  to  minimize  his  journey  he  wishes  to  know  whether  or" 

"  not  he  can  traverse  this  network  and  return  to  his  depot  without" 

"  walking  the  length  of  any  street  more  than  once.  This  problem' 

"  concerns  the  existence  or  otherwise  of  an  Eulerian  circuit  of' 

"  the  corresponding  graph.  If  one  exists  then  he  may  wish  to  know" 

"  how  many  others  do  in  order  to  vary  the  otherwise  tedious" 

"  routine."); 
press_a_key(  8 ); 
definition_3_l  1( ); 

) 
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static  void  definition_3_l  l(void' 

I 

I*********  *****************  J*********************************^ 

/*  attach  [Pageup]  to  the  euler_circuhs_  ind_paths  function  */ 
setonkey(0x4900,Peuler_circuits_and  jpaths  ,0 ); 

y**************************************************************/ 

/*  attach  [Pagedown]  e  t.»*  example_3_15  function*/ 
setonkey(0x5 100,Pex_3_15,0); 

^***********************************************************V*^ 

ii((w[l]=wopen(15,3,22,74,3,LCYANI_MAGENTA,WHITELBLUE))==0) 
error_exit(  1 ); 

wtitle("[Eu!er  Path  and  Euler  Circuit]”, TCENTER^LGREY^ROWN); 
whelpcat(H_WINTITLE ) ; 

wputsw("  A  path  in  a  multigraph  G  that  includes  exactly  once  all" 

”  me  edges  of  G  and  has  different  first  a  last  vertices  is" 

"  called  an  Euler  path.  A  path  that  includes  exactly  once  all" 

"  the  edges  of  G  and  has  the  same  initial  and  terminal" 

"  vertices  is  called  an  Euler  circuit."); 
press_a_key(5); 
wcloseall(); 
following  15(); 

I 

/***********************************************************************/ 
void  following  15(  void) 

I 

^* ****** -•********************************************************/ 

/*  at*ach  [Pageup]  to  the  definition_3_l  1  function  */ 
setonkey(0x4y()0,Pdef_3_10,0); 

^*********v*****  ;<***********************  ■  ************************^/ 

t "  attach  [Pattedown]  to  the  euler_circuit_algorithm  function  */ 
setonkey(C\\5100,Peuler_circuit_algoritlun,0) 

***************  (c******* *»*  ****************************  *********y 

if((w[  1  ]-wopen(20. 12.24,77, 3,  LCY  AN,  _BROV/N,WH1TEI_BROWN))==0) 
error  exit(  1  ); 

..  helpcatt  1 1  W1NT1TLE ); 


wputsw("Pres5  a  key  to  see  the  graph...."); 

press_a_key'2); 

wcloseali(); 

example_3_15(); 


) 


void  example_3_15(void) 


register  int  *scm; 

if((scm=ssave( )  )==NULL)  error_exit(3 ); 
spawnl(P_W  AIT, "ex3_15.exe", NULL); 
srestore(scni); 
euler_circuit_algoritlun( ); 


/*****************************************************^ *****************/ 
static  void  euler_circuit_algorithin(void) 


/******%*********************************************************/ 
/*  attach  [Pageup]  to  the  example_3_15  function  */ 
setonkey(()x49(K),Pex_3_l  5 ,0); 

/*  attach  [Pagedown]  to  the  exainple_3_16  function  */ 
setonkey(0x5I00,Pex_3_16,0); 

if((w[ !  |=wopen(0,3,4,74,3,LCYANI_BLUE,YELLOWI_BROWN))==0) 
error_exit(  I ); 

wtitle("[ Euler  Circuit  algoritlun]",TCENTER,_LGREYIBROWN): 
wputswi"  This  algorithm  finds  an  Euler  Circuit  for  a  connected" 

"  multigraph  G  such  that  every  vertex  of  G  has  even  degree."); 
press_a_kev<2); 

if((w[2|=wopen(3. 3,6,74.3 .LCYANLBLUE,WH1TELBLUE))==())  error_exit(  1 ); 
wtitlef  "(Step  1  |".TCENTER._LGREYIBROWN ); 
wputswt"  (start  path).  Select  a  vertex  V  and  n  edge  on  V.1'); 
press  a  key(  I  r. 

if<( w[ 3 ]=wopen(6. 3, 1 0,74. 3, LCYANLF3LUE,WHITEI  MAGENTA ))==()> 
error  ex  it<  I  t; 
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wti*W"[Step  2]",TCENTER,_LGREYIBROWN ); 

wputsw("(get  V-V  path).  If  the  other  vertex  on  the  last  chosen  edge" 

"  is  not  V.  then  choose  an  unused  edge  on  this  other  vertex." 

"  Repeat  step  2."); 
press_a_key(2); 

if((w|4J=wopen(  1 0,3 , 1 6,74,3  ,LC  Y  ANLBLUE.WHITELLGREY  ))=0) 
error_exit(  1 ); 

wtitle("lStep3]",TCENTER,_LGREYIBROWN); 

wputsw("(start  new  path  at  A).  If  all  of  the  edges  nave  been  used,  then" 

"  stop  (an  Euler  circuit  has  been  constructed).  Otherwise  choose" 

"  an  unused  edge  on  a  vertex  already  visited,  and  give  this" 

"  previously  visited  vertex  a  temporary  name  A."); 
press_a_key(4 ); 

if((w[5J=wopen(  1 6,3,20, 74,3, LCYANI_BLUE,WHITEI_RED))==0)  error_exit(  1 ); 

wtitle("(Step  4J",TCENTER,_LGREYIBROWN); 

wputsw("(get  A-A  path)  If  the  other  vertex  on  the  last  chosen  edge" 

”  is  not  A,  then  choose  an  unused  edge  on  this  other  vertex." 

"  Repeat  step  4." ); 
press_a_key(2); 

if((w[6j=wopen(20,3,24,74,3,LCYANI_BLUE,WHITEI_CYAN))==0) 

error_exit(  1 ); 

wtitle(  "(Step  3  J " ,TCENTER ,_LGRE YIBROWN ); 

wputsw("(join  paths  together).  Insert  these  newly  chosen  edges  at  the” 

"  vertex  A.  Go  to  step  3."); 
press_a  key(2); 
wcloseall(); 
following  16( ); 
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/***********************************************************************/ 
void  following  16(void) 

( 

y*  a***************************************************************/ 

/*  attach  [Pageup]  to  the  euler_circuit_algorithm  function  */ 
setonkey(0x4900,Peuler_circuit_algoritlim,0); 

^*****tl»>******j(t**J(<**l)C**l(<*  +  ^>(<******l(<*****  +  +  *j|t***  +  ***********j(t*^^**+y' 

/*  attach  [Pagedown]  to  the  theorem_3_4  function  */ 
setonkey(0x5 1 00,Ptlini_3_4,0); 

/****************************************************************/ 


if((  w[  1  J=wopen(20,42,24,77,3,LCYANI_LGREY  ,WHITELLGREY))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  the  graph....”); 
press_a_key(2); 
wcloseall(); 
exainple_3_16(); 


y***********************************************************************^ 


void  example_3_16(void) 

( 

register  int  *scrn; 

if((scm=ssave(  ))==NULL)  error_exit(3); 
spawnl(P_WAJT."ex3_l  6.exe", NULL); 
srestore(scm): 
theorem_3 __4t ); 
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j*  ********************************************************************** 

void  theorem_3_4(void) 

I 


/*  attach  [Pageup]  to  the  example_3_16  function  */ 
setonkey(0x4900,Pex_3_16,0); 

/**************************************************************** 


/*  attach  [Pagedown]  to  the  example_3_17  f  mction  */ 
setonkey(0x5  l00,Pex_3_17,0); 

^****************************************************************^ 


if((w[lJ=wopen(3,3,7,74,3,LCYANI_MAGENTA,WHITELMAGENTA))==0) 
error_exit(  1 ); 

wtitle(" [Theorem  3.4]",TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTITLE); 

wputsw("  A  multigrapli  G  has  an  Eulerian  circuit  (or  path  if  and  onJy  if' 

"  it  is  connected  and  the  number  of  vertices  with  odd  degree" 

"  is  0  (or  2)."); 
delay(20); 

if((w[2]=wopen(7,3,13,74,3,LCYANI_MAGENTA,WHrTEI_CYAN))==0) 

error_exit(  1 ); 

wtitleC’l  PROOF  OF  THEOREM  3.4]",TCENTER,_LGREYIBROWN); 
wputsw("  The  conditions  are  clearly  necessary  because  if  an  Eulerian" 

"  circuit  (or  path)  exists  then  G  must  be  connected  and  only" 

"  the  vertices  at  the  ends  of  an  Eulerian  path  can  be  of  odd" 

"  degree.^!  To  show  sufficiency  we  use  induction  on  the  number” 

"  of  edges  IEI." ); 
delay(20); 

if((  w[3]=wopen(  15,3, 1 8,74,3,LC  Y  ANI_MAGENTA,WH1TEI_LGREY  ))==0 ) 
error_exit(  1 ); 

wtitle(”|BASE  CASEJ”.TCENTER,_LGREYlBROWN); 
wputsw("  The  theorem  is  trivially  true  for  lei  =  2."); 
press_a_key(  1 ); 
wcloset ); 

if((w[4]=wopen(  13,3,24,74,3,LCYANI_MAGENTA,WHITELLGREY))==0) 
error_exii(l ); 

wtitle(”(iNDUCTIVESTEP]",TCENTER,_LGREYIBROWN); 
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wputsw("  Let  G  have  IEI  >  2  edges,  and  let  it  satisfy  the  conditions" 

"  of  the  theorem.  If  G  contains  two  vertices  of  odd-degree," 

"  we  denote  them  by  VI  and  V2.  Consider  tracing  a  circuit  or" 

"  a  path  T  from  a  vertex  Vi  (  =  VI  if  there  are  vertices  of’ 

"  odd-degree).  We  trace  T  leaving  each  new  vertex  encountered” 

"  by  an  unused  edge  until  a  vertex  Vj  is  encountered  for  which" 

"  every  incident  edge  hes  been  used.  If  G  contains  no  vertices" 

"  of  odd-degree  then  it  must  be  the  case  that  Vi  =  Vj,  otherwise” 

"  it  must  be  the  case  that  Vj  =  V2."); 
press_a_key(9); 
wclose(); 

if((w[5]=wopen(  13,3,24,74, 3 ,LCYANLMAGENTA,WHITEI_LGREY))=0) 
error_exit(  1 ); 

wtitleOlNDUCTIVE  STEP  CONT’D]",TCENTER,_LGREYIBROWN); 
wputsw("  Suppose  that  T  does  not  use  every  edge  of  G.  If  we  remove  from" 

"  G  all  those  edges  that  have  been  used,  then  we  are  left  with  a," 

"  not  necessarily  connected,  subgraph  G’.  G’  only  contains" 

"  vertices  of  even-degree.  By  the  induction  hypothesis  each" 

"  component  of  G’  contains  an  Eulerian  circuit.  Since  G  is" 

"  connected,  T  must  pass  through  at  least  one  vertex  in  each" 

"  component  of  O'.  An  Eulerian  circuit  or  path  can  then  be" 

"  constructed  for  G  by  insetting  into  T,  at  one  such  vertex" 

"  for  each  component  of  G’,  an  Eulerian  circuit  for  that" 

"  component."); 
press_a_key(9); 
wcloseO; 
welose(); 

wclose(); 
following  170; 


y***********************************************************************y 

void  following  17(void) 

I 

y*****************************************************************y 

/*  attach  [Pageup]  to  the  theorem_3_4  function  */ 
setonkey(0x4900,Pthm_3_4,0 ); 

y****************************** ********************* *************y 

/*  attach  [Pagedown]  to  the  definition_3_12  function  */ 
setonkey(0x5 100,Pdef_3_12,0); 

y****************************************************************y 

if((w[l]=wopen(20,42,24,77,3,LCYANI_BLUE,WHITEI_BLUE))==0) 
error_exit(  1 ); 
whelpcat(HJWINTTTLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseallO; 
example_3_17(); 

} 

void  exainple_3_17(void) 

( 

register  int  *scm; 

if((scm=ssave( ))==NULL)  error_exit(3 ); 
spawnl(P_WAJT, "ex3_17.exe", NULL); 
srestore(scm); 
definition_3_12(); 

) 

void  hamilton  (void) 


*****************************************%********************* 


I 

/*  attach  [Pageup]  to  the  definition_3_12  function  */ 
setonkey  (0x4900.  Pdef_3_  1 2 ,0 ) ; 

/ 


/ 


****************************************************************/ 


/*  attach  [Pagedown]  to  the  example_3_18  function  */ 
setonkey(0x5 1  ()0,Pex_3_l  8,0); 
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if((w[i]=wopen(8,3,14,74,3,LCYANLMAGENTA,WHITELMAGENTA))=0) 

error_exit(l); 

wtitle("[Travelling  Salesman]", TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTITLE ) ; 

wputsw("  A  salesman,  starting  in  his  own  city,  has  to  visit  each  of' 

"  (n-1)  other  cities  and  return  home  by  the  shortest  route.  " 

"  A  solution  to  the  salesman’s  problem  can  be  provided  by" 

"  finding  a  Hamiltonian  circuit."); 
press_a_key(4); 
following  18(); 

} 


/******** 


void  following  18(void) 

I 


/*  ***************************************************!([*********** 

/*  attach  [Pageupl  to  tlie  hamilton  function  */ 
setonkey(0x4900,Phamilton,0); 

/**************************************************************** 
/*  attach  [PagedownJ  to  the  ex_3_18cont  function  */ 
setonkey(0x5 10(),Pex_3_l  8cont,0); 

/**************************************************************** 


if((w(  1  ]=wopen(20,42,24,77,3,LCYANI_GREEN,WHITEI_GREEN))==0) 
error_exit(  1 ): 
whelpcaK  H_WINTITLE ); 
wputswf'Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wclosealh); 
example_3_18(); 
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void  definition_3_12  (void) 

I 

****************************************************** ^ 
/ *  attach  [Pageup]  to  the  example_3_17  function  */ 
setonkey(0x4900,Pex_3_l  7,0); 

/******************************%**%****%**********%************%*/ 
/*  attach  [PagedownJ  to  the  hamilton  function  */ 
setonkey(0x5 100,Phamilton,0); 

if((w[  1  ]=wopen(  10,3, 1 3,74,3  ,LC  Y  ANLMAGENTA,  YELLOW  l_B  LUE)  )==0) 
error_exit(  1 ); 

wtitle("[Hamiitonian  Cycle]”, TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTITLE); 

wputsw("  A  Hamiltonian  cycle  is  a  cycle  that  visits  every  vertex  exactly  once."); 

press_a_key(  1 ); 

wclose(); 

hamilton(); 


/' 


♦♦★♦♦l***************************************************************** 


V 


void  example_3_18(void) 


register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P_WA!T,"ex3_l  8.exe", NULL); 
srestore(scm); 
ex_3_18cont(); 


^* ********%%****%******%******************%***************************** 
void  ex_3_18cont(void) 


y*  **************************************%***********************/ 
/*  attach  IPageup]  to  the  example_3_18  function  */ 
setonkey  (0x4900, Pex_3_l  8 ,0); 

^♦♦♦i*******************************#****************************/ 


/*  attach  [Pagedown]  to  the  theorein_3_5  function  */ 
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setonkey(0x5 100,Pthm_3_5,0); 

wslide(2,3); 

if((w[2J=wopen(8,3,21,74,3,LCYANI_MAGENTA,WHITEI_MAGENTA))==0) 

error_exit(l); 

wtitle("[The  criteria]",TCENTER,_LGR£YIBROWN); 
whelpcat(H_WINTITLE); 

wputsw("  Relatively  easy  criteria  exist  to  determine  if  there  is" 

"  an  Euler  circuit  or  an  Euler  path.  All  that  has  to  be  done" 

"  is  to  check  the  degree  of  each  vertex.  Forthermore,  there" 

"  is  a  straightforward  algoritlun  to  use  in  constructing  an" 

"  Euler  circuit  or  path.  Unfortunately  the  same  situation" 

"  does  not  hold  for  Hamiltonian  cycles.  It  is  a  major  unsolved" 

"  problem  to  determine  necessary  and  sufficient  conditions" 

"  for  a  graph  to  have  a  Hamiltonian  cycle,  hi  general  it  is  very" 

"  difficult  to  find  a  Hamiltonian  cycle  for  a  graph.  There  are," 

"  however,  some  conditions  that  guarantee  the  existence  of  a  " 

"  Hamiltonian  cycle  in  a  graph.  Here  is  an  example  of  one  of 
"  these  theorems"); 
press_a_key(  1 1 ); 
theorem_3_5(): 

} 

jit  %%%*****%******%***%’4t*%*%**********%%**%#***3f<**’fc>t'jf<’t<*%%’l')f<*’f<*’f<**jf'>|C’f<*3|<j|<*’fy 

void  theorem_3_5(void) 

( 

jif  *************************************  ***************  **********/ 

/*  attach  [Pageup]  to  the  ex_3_18cont  function  */ 
setonkey(0x4900,Pex_3_18cont,0); 

^***************************************************************^ 

/*  attach  [Pagedown]  to  the  example_3_19  function  */ 
setonkey  ( 0x5 1 00,Pex_3_  1 9,0 ); 

^***************************************************************^ 
if((w[l  ]=wopen(20,3,24,74,3,LCYANI_MAGENTA,WHITELMAGENTA))==0) 
error_exit(l ); 

wtitle("[Theorem  3.5]",TCENTER,_LGREYlBiiOWN); 
whelpcat(HWINTITLE), 
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wputsw("  Suppose  G  is  a  graph  with  n  vertices,  where  n  >  2.  If  each" 

"  vertex  has  degree  at  least  n/2,  then  G  has  a  Hamiltonian" 

"  cycle."); 
press_a_key(2); 
wclose(); 
wclose(); 
wclose(); 
following  19(); 

) 

/*  *  *  ***  *  *  **  *  *  *******  ***  *  ********  ****  *  *  *  *  **  *  *  *  ***  *  *  *  ********  ***  *  *****  ***  */ 
void  following! 9( void) 

I 

^***************************************************************^ 

/*  attach  [Pageup]  to  the  theorem_3_5  function  */ 
setonkey(0x4900,Pthm_3_5,0); 

/***************************************************************/ 

/*  attach  [Pagedown]  to  the  definition_3_15  function  */ 
setonkey(0x5 1  ()0,Pdef_3_l  5,0); 

^***************4,***********************************************^ 

if((w[  1  ]=wopen(20,42,24,77,3,LCYANI_CYAN,WHITEI_CYAN))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE ); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseall(); 
example_3_l9(); 

I 

y*************************************+*********************************^ 
void  example_3_19(void) 

( 

register  int  *scrn; 

if((scrn=ssave(  ))==NULL)  error_exit(3); 
spawnl(  P_W  AlT,"ex3_  1 9.exe "  ,N  ULL ); 
srestore(scm); 
definition_3_15(); 


180 


/***********************************************************************/ 
void  definition_3_15(void) 


^* *************************************************************/ 


/*  attach  [Pageup]  to  the  example_3_19  function  */ 
setonkey  (0x4900, Pex_3_l  9,0); 

^*  ************************************* r************************^ 

/*  attach  [Pagedown]  to  the  BFSalgorithm  function  */ 
setonkey(0x5100,?BFS_algorithm,0); 

/**************************************************************/ 


if((  w[  1  ]=wopen(6, 10,13 ,70,3,LCYANI_MAGENTA,  WHITELMAGENTA))=0) 

error_exit(  1 ); 

wtitle("[Tlie  distance]", TCENTER,_LGREYIBROWN); 
whelpcat(  H_  W1NTITLE) ; 

wputsw("  Sometimes  we  want  to  find  a  path  of  minimal  length  between" 

"  two  vertices  S,  and  T,  that  is,  a  path  from  S  to  T  that  has" 

"  the  smallest  possible  number  of  edges.  This  smallest  possible" 

"  number  of  edges  in  a  path  from  S  to  T  is  called  the  distance" 

"  from  S  to  T."); 
press_a_key(5); 
wclose(); 

BFS_algoritlun(); 

) 


/***********************************************************************/ 
static  void  BFS_algorithm(void) 


/^^^ifc***********************************************************  j 

/*  attach  [Pageup]  to  the  definition_3_15  function  */ 
setonkey(0x4900,Pdef_3_l  5,0); 

/********************%********************%****************%****/ 
/*  attach  [Pagedown]  to  the  example_3_39  function  */ 
setonkey(0x5100,Pex_3_39,0); 

^*  ********************************* *****************************4y 

if((w[  1  ]=wopen(  1 ,3,7,74,3,LCYAN!_BLUE,YELLOWI_BROWN))==0) 

errorexitt  1 ); 

wtitleCI Breadth-First  Search  Algorithm]", TCENTER.JJ3REYIBROWN); 
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wputsw("  This  algorithm  will  determine  the  distance  and  a  shortest" 

"  path  from  vertex  X  to  vertex  T  in  a  graph  G.  In  the  algorithm" 

”,  L  denotes  the  set  of  labeled  vertices  and  the  predecessor  of' 

"  vertex  A  is  a  vertex  in  L  that  is  used  in  labeling  A."); 
press_a_key(4); 

if((wl2]=wopen(6,3,10,74,3,LCYANLBLUE,WHITELBLUE))=0)  error_exit(l) 
wtitle("[Step  l]",TCENTER,_LGREYIBROWN); 
wputsw("  (start  with  S).  Assign  S  the  label  0,  let  L  =  {s ) 

"  and  let  S  have  no  predecessor."); 
press_a_key(2); 

if((wl3]=wopen(9,3,16,74,3,LCYANI_BLUE,WHITELMAGENTA))==0) 
error_exit(l ); 

wtit!e("lStep  2J",TCENTER,_LGREYIBROWN); 
wputsw("(check  for  completion).  If  T  is  not  in  L,  go  to  step  3.  If' 

"  T  is  in  L,  then  stop.  The  label  for  T  is  the  distance  from" 

"  S  to  T.  A  shortest  path  from  S  to  T  is  formed  by  using  in" 

"  reverse  order  the  vertices  T,  the  predecessor  T1  of  T,  the" 

"  predecessor  T2  of  Tl,  and  so  forth  until  S  is  reached."); 
press_a_key(5); 

iff ( w|  4  j-\vopen(  1 5,3,25 ,74,3  ,LC  Y  ANI  BLUE,WH1TEI„LGREY))==0) 
error_exit(l ); 

wtitle("[Step  3]",TCENTER,_LGREYIBROWN); 
wputsw(”(find  next  vertex).  If  T  is  not  in  L,  find  the  unlabeled" 

"  vertices  in  G  that  are  adjacent  to  vertices  in  L  with  the" 

"  largest  label  number  k.  If  there  are  no  such  vertices,  then" 

"  there  is  no  path  from  S  to  T.  Otherwise,  assign  these  newly" 

"  found  vertices  the  label  k+1  and  put  them  in  L.  If  B  is  one" 

"  of  these  newly  found  vertices  and  B  is  adjacent  to  a  vertex" 

"  C  in  L  with  label  k,  let  C  be  the  predecessor  of  B.  (If  ” 

"  there  is  more  than  one  choice  for  a  predecessor,  choose  one” 

"  at  random.)  Return  to  step  2.”); 
press_a_key(8), 
wclose(); 
wclose(); 
wcloseO; 
wclose( ); 
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follow  ing3  9(); 

} 

/***********************************************************************/ 
void  following39(void) 


yt**************************************’ (ok***********************/ 


/*  attach  [Pageup]  to  the  BFS_algorithm  function  */ 
setonkey(0x4900,PBFS_algorithin,0); 

y^*************************************************************^ 
/*  attach  [Pagedown]  to  the  definition_3_16  function  */ 
setonkey(0x5100,Pdef_3_16,0); 


if((w[  1  J=wopen(20,42,24,77,3iLCYANI_RED,WHITEi_RED))==0) 
error_exit(l ); 
whelpcatt  H  _  WINT1TLE ); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseallO; 
example_3_39( ); 


void  definition_3_16(void) 

I 

/*****************************************************************/ 
/*  attach  |PageupJ  to  the  example_3_39  function  */ 
setonkey(0x4900,Pex_3_39,0); 

yt*****************************************************************/ 

/*  attach  [Pagedown]  to  the  exainple_3_40  function  */ 
setonkey(0x3  i00,Pex_3_40,0); 

/****  +  ****************  +  *****  +  ********  +  ******  +  ********:4r***********5»y 

if((w|  I  ]-wopen(6,10.1  l,70,3,LCYANI_MAGENTA.WHlTEI_MAGENTA))--0) 
error_exit(l ); 

wtitle("|The  weighted  grapli  and  the  weight  J"TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTlTLE); 

wputsw("  A  weighted  graph  is  a  graph  in  which  a  number  called  the" 

"  weight  is  assigned  to  each  edge.  The  weight  of  a  path  is  die" 
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"  sum  of  weights  of  the  edges  in  the  path."); 
press_a_key(3); 
wclose(); 
follow  ing40(); 

} 

/******************  ******  ********  ************************ +*  ++*+1,+ *******/ 


i 


void  following40(void) 

I 

/*******************************************'-.<******************/ 

/*  attach  IPageupj  to  the  definition  3_16  function  */ 
setonkey(0x4900,Pdef_3_i6,0); 

^/*  ****************************. '•********************************/ 

/*  attach  [Pagedown]  to  the  example_3_41  function  */ 
setonkey(0x5100,Pex_3_41,0); 

xf((w[l]=wopen(20,42,24,77,3,LCYANI_MAGENTA,WHn  EI_MAGENTA))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseall(); 
example_3_40( ); 


i 

void  example_3_39(void) 

( 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P_W  AIT, "ex3_39.exe", NULL); 
srestore(scm): 
definition_3_!6(); 


c 
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/ft**********************************************************************/ 

void  example_3_40(void) 

{ 


register  int  *scm; 

if ((scm=ssave  ( )  )==N  ULL)  error_ex  it  (3 ) ; 
spawiil(P_WAJT, "ex3_40.exe", NULL); 
srestore(scm); 
following41(); 

I 


/*******************************************************************  ****/ 


void  following41(void) 


^ft**************************************************************^ 


/*  attach  [Pageup]  to  the  exaniple_3_40  function  */ 
setonkey(0x4900.Pex_3_40,0); 


/*  attach  |Pagedown]  to  the  dijkstra_algorithm  function  */ 
setonkey(0x5 1 00,Pdijkstra_algorithm,0); 

/** i************************************************************* 

if((wll]=wopen(20,42,24,77,3,LCYANI_BROWN,WHITEI_BROWN))==0) 
error_exit(l ); 
whel  pcat(H_WINTITLE ); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseall( ); 
example_3_41(); 


^/* ****************************************%********************%********/ 
void  exaniple_3_41(void) 

I 

register  int  *scrn; 

if((scm=ssave( )  )==NULL)  error_exit(3 ); 
spavviil(P_WAIT,"ex3_4 1  .exe",NULL ); 
srestore(scrn); 
dijkstra_algor  ithm( ) ; 


185 


/****%***************%********************************************%%****/ 
static  void  dijksua_algorithm(void) 

I 


y***************************************************************/ 


/*  attach  [Pageup]  to  the  example_3_41  function  */ 
setonkey(0x4900,Pex_3_41,0); 


/*  attach  [Pagedown]  to  the  example_3_42  function  */ 
setonkey(0x5 100,Pex_3_42,0); 

/*  **************************************+*+****,<***************/ 


if((w[l]=wopen(l,3,ll,74,3,LCYANIJBLUE,YELLOWIJBROWN))==0) 

error_exit(l); 


wtitle("[Dijkstra’s  Algorithm]”, TCENTER,_LGREY!BROWN); 
wputsw("  Let  G  be  a  weighted  graph  in  which  there  is  more  than  one" 
"  vertex  and  there  are  nonnegative  weights  on  the  edges.  This" 

"  algorithm  will  determine  the  distance  and  a  shortest  path" 

"  from  vertex  S  to  every  other  vertex  in  G.  In  the  algorithm" 

"  P  denotes  the  set  of  vertices  with  permanent  labels.  The" 

"  predecessor  of  a  vertex  A  is  a  vertex  in  P  used  to  label  A" 

".  The  weight  of  the  edge  on  vertices  U  and  V  will  be  denoted" 

"  by  W(U.V),  and  if  there  is  no  edge  on  U  and  V,  we  will  write" 

"  W(U,V)  =  inf."); 


press_a_key(8); 

if((w[2]=wopen(10,3,14,74,3,LCYANI_BLUE,WHITE!_BLUE))==0) 
error_exit(l ); 

wtitle("[Step  1]",TCENTER,_LGREY1BRCWN); 
wputsw("  (start  with  S).  Assign  S  the  label  0,  let  P  =  (s),” 

"  and  let  S  have  no  predecessor."); 
press_a_key(2); 

if((w[3]=wopen(13,3,17,74,3,LCYANI_CYAN,WHITEI_CYAN))==0) 
error_exit(  1 ); 

wtitle("|Step  2]",TCENTER,_LGREYIBROWN); 
wputsw("(assign  labels  to  all  the  other  vertices).  To  each  vertex  V" 

"  not  in  P,  assign  the  label  W(S,V),  and  let  V  have" 

"  predecessor  S  ."); 
press_a_key(2); 
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if((w[4]=wopen(16,3,24,74,3,LCYANI_BLUE,WHITEIJV1AGENTA))==0) 
error_exit(  1 ); 

wtitle("[Step  3]  ",TCEN1'ER,_LGREYIBR0WN); 
wputsw("(find  nearest  vertex  to  P  and  revise  labels).  Include  in  P" 

"  a  vertex  U  having  the  smallest  label  of  the  vertices  not" 

"  in  P.  (If  there  is  more  than  one  such  vertex,  arbitrarily" 

"  choose  any  one  of  them.)  For  each  vertex  X  not  in  P  and" 

"  adjacent  to  U,  replace  the  label  on  X  by  the  smaller  of  the" 

"  old  label  on  X  and  (label  on  U)  +  W(U,X).  If  the  label  on  X" 

"  was  changed,  let  U  be  the  new  predecessor  of  X."); 
press_a_key(6); 
wactiv(w[2J); 
wslide(l,3), 
wactiv(w[3J); 
wslide(4,3); 
wactiv(w[4J): 
wslide(7,3); 

if((wl5J=wopen(15, 3, 24,74,3,  LCYANI_BLUE,WHI4  El_LGKEY))==0) 
error_exit(l ); 

wtitle("lStep  4]",TCENTER,„LGREYIBROWN); 
wputsw("(check  for  completion).  If  P  does  not  contain  all  the" 

"  vertices  of  G,  then  return  to  step  3.  Otherwise  the  label" 

"  on  a  vertex  Y  is  its  distance  from  S.  If  the  label  on  Y  is" 

"  inf,  then  there  is  no  path,  hence,  no  shortest  path,  from" 

"  S  to  Y.  Otherwise,  a  shortest  path  from  S  to  Y  is  fonned  by" 

"  using  in  reverse  order  the  vertices  Y,  the  predecessor  Y 1 " 

"  of  Y,  the  predecessor  Y2  of  Yl,  and  so  forth  until  S  is” 

"  reached.”); 
press_ajkey(7); 
wclose(); 
wclose(); 
wcloseO; 
wclose(); 
wcloseO; 
following42(); 
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/if******************************************* +'*  +  ***  +  **  +  * 

void  foliowing42(void) 


/i***************************************************************/ 


/*  attach  [Pageup]  to  the  dijkstra_algorithm  function  */ 
setonkey(0x4900,Pdijkstra_algorithm,0); 

/****++***+*********+********+*+*+**++**+++****+*++*+*+#+++*+*+/ 
/*  attach  [Pagedown]  to  the  example_3_30  function  */ 
setonkey(0x5 1 00,Pex_3_30,0); 

/***********************************+*****++*****+*++****+*++***/' 


if((w[l]=wopen(20, 42,24, 77,3, LCYANI_LGREY,WHITELLGREY))=0) 
error,  exit(i ); 
whelpcat(HJWINTTTLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseaIl(); 
example_3_42(); 


/*************:,<*********************************************************/ 
void  example_3_42(void) 


register  int  *scrn; 

if((scm=ssave(. ) )==NU LL)  error_exit(3 ); 

spawnl(P_WAJT,"ex3_42.exe",NULL); 

srestore(scm); 

following30(); 

} 

void  following30(void) 

I 


/*  attach  (Pageup]  to  the  example_3_42  function  */ 
setonkey(0x4900,Pex_3_42,0); 

^^t*************************************************************^ 

/*  attach  (Pagedown]  to  the  exaniple_3_3 1  function  */ 
setonkey(0x5 100,Pex_3_3 1 ,0); 
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if((w[l]=wopen(20, 42, 24,77,3 ,LCYANI_BLUE,WHITEI_BLUE))=0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseallQ; 
example_3_30(); 

} 

/if**********************************************************************/ 

void  isomorphism  (void) 

I 


/*  attach  [PageupJ  to  the  exampte_3_3 1  function  */ 
setonkey(0x4900,Pex_3_31 ,0); 

/**************************************>-*************************/ 


/*  attach  [Pagedown]  to  the  example_3_32  function  */ 
setonkey(0x5 100,Pex_3_32,0); 

/************************************************************** 


if((w[  l]=wopen(8, 3, 14,74,3, LCYANI_MAGENTA,WHrrEI_MAGENTA))=0) 
error_exit(l ); 

wtitle("[  Isomorphism  ]",TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTITLE); 

wputsw("  When  we  believe  that  two  graphs  are  isomorphic,  we  can  justify" 

"  that  belief  by  constructing  an  isomorphism.  When  we  suspect  that" 

"  two  graphs  are  not  isomorphic,  we  can  substantiate  that  suspicion" 

"  only  by  showing  that  no  isomorphism  exists."); 
press_a_key(4); 
wslide(2,3); 

if((w[2J=wopen(8,3,15,74,3,LCYANI_BLUE,WHITEI_BLUE))==0) 
error_exit(l ); 

wtitlefl  Isomorphism  ]",TCENTER,_LGREYIBROWN); 
whelpcat(H_WlNTlTLE); 

wputsw("  In  some  cases  this  is  easy.  For  instance,  if  the  graphs  do  not" 

"  have  the  same  number  of  vertices,  then  there  can  be  no  bijection" 

"  between  the  sets  of  vertices,  and  hence  no  isomorphism." 

"  Similarly,  if  the  graphs  do  not  have  the  same  number  of 
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”  edges,  the  graphs  cannot  be  isomorphic."); 
press_a_J,.ey(5  V. 

if((w[3]=wopen(  15,3.24, 74, 3 ,LCYANI_LGREY,WHrTEI_LGREY))=0) 
error_exit(l); 

wtitle("[  Isomorphism  ]",TCENTER,_LGREYIBROWN); 
whelpcat(H_WlNTITLE); 

wputsw("  There  are  other  properties  that  must  be  common  between" 

"  isomorphic  graphs  that  we  can  check  (connectivity  for  example)." 

"  Otherwise,  verifying  that  two  graphs  are  nonisomorphic" 

"  can  be  difficult.  Suppose  G1  =  (VI, El)  and  G2  =  (V2,E2)." 

"  If  IV II  =  IV2I  =  n,  than  there  are  n!  possible  bijections" 

"  between  VI  and  V2.  To  show  that  G1  is  not  isomorphic  to  G2," 

"  we  must  show  that  everyone  of  the  n!  bijections  fails  to  map" 

"  the  edges  of  G1  onto  the  edges  of  G2."); 
press_a_key(7 ); 
wcloseQ; 
wclose(); 
wclose(); 
following32(); 


/************** 


********************!!<********!(<***************************/ 


void  following32(void) 

{ 


/*** 


**+****#*#**#*+******#********#***++*/ 


/*  attach  [Pageup]  to  the  isomorphism  function  */ 
se  tonkey  (0x4900 .Pisomorphism  ,0 ) ; 

/*  attach  [Pagedown]  to  the  exercise  1  function  */ 
setonkey(0x5 1 00,Pexercisel  ,0); 

l#******#+* *****+++**+***++***+*+**+++***#**++**++*********++++*+ I 


if((w[  1  ]=wopen(20,42,24,77,3,LCYANI_MAGENTA,WHITEI_MAGENTA))==0) 
error_exit(  1 ); 


whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wcloseallf ); 
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example_3_32(); 


void  example_3_30(void) 

I 


register  int  *scm; 

if((scrn=ssave())==NULL)  error_exit(3); 

spawnl(P_WAIT;’ex3_30.exe"fNULL); 

srestore(scm); 

foIlowiug31(); 


j *  ifc****************** 


♦  *  ★  *  ★  ★  *  *  * 


void  following31  (void) 

I 

/**%*************%****%***************************************** %^ 
/*  attach  [Pageup]  to  the  example_3_30  function  */ 
setonkey(0x4900,Pex_3_30,0); 

^z***************************************************************/ 


/*  attach  [Pagedown]  to  the  isomorphism  function  */ 
setonkey(0x5 1  ()0.Pisomorphism,0 ); 

^★♦j^************************************************************^ 


if((w[lJ=wopen(20,42,24,77,3,LCYANLGREEN,WHITEI_GREEN))==0) 
error_exit(  1 ); 
whelpcat(H_WINTlTLE); 
wputsw("Press  a  key  to  see  the  graph...."); 
press_a_key(2); 
wciosealK); 
example_3_3 1  ( ); 


'*************  *****-:'**************************  ************************** 

i 

void  example_3_31(void) 


register  int  *scrn; 

if((scni=ssave())==NULL)  error_exit(3); 
spawnl(P_WAIT,"ex3_3 1  ,exe",NULL); 
srestore(scni); 


isomorphism! ); 


^*  ********************************************************************** 
void  example_3_32(void) 

I 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P_WAIT,”ex3_32.exe"^ULL); 
srestore(scm); 
exercise  1(); 

} 

^t********************************************************************** 

void  exercisel(void) 


register  int  *scrn; 

yf*  ********************************  +  *****  +  *  +  +  **  +  +  +  ***  +  *  +  ******** 


/*  attach  |  Pageup]  to  the  example_3_32  function  */ 
setonkey(0x4900,Pex_3_32,0); 

^*  **************> •<********+*+***************+*******************/ 


/*  attach  [PagedownJ  to  the  exercise2  function  */ 
setonkey(0x5100,Pexercise2,0); 


if((scm=ssave  ( )  )==NULL)  error_exit(3 ) ; 

if((w[  1  ]=wopen(20,42,24,77,3,MAGENTALBLUE,WHlTELBLUE))==0) 
error_exit(l ); 
whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  some  exercises..."); 
press_a_key(2); 
wcloseall(); 

spawnl(P_WAIT,"pq  1  .exe",NULL); 

srestore(scm): 

exercise2(); 


) 
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/***+****+*+********************+**+**+***+**++++****************+++***+/ 
void  exercise2(void) 

{ 


register  int  *scm; 

/ft**************************************************************/ 

/*  attach  [Pageup]  to  the  exercise  1  function  */ 
setonkey  (0x4900,  Pexercise  1 ,0); 

/**************************************+****************++******/ 


/*  attach  [PagedownJ  to  the  exercise3  function  */ 
setonkey(0x5 100,Pexercise3,0); 

y***************************************************************^ 

if((scrn=ssave())==NULL)  error_exit(3); 

if((w[l]=wopen(20,42,24,77,3,MAGENTAIJBLUE,WHITEIJBLUE))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  exercise  2..  '); 
press_a_key(2); 
wcloseaIl(); 

spawnl(P_WAIT,"pq2.exe",NULL); 

srestore(scrn); 

exercise3(); 


^+**************  +  **************  +  **  +  *,((**,(,********)|<*:(<*******  +  +  +  ,)<*,(,*,t,,(,  +  *,(<,)<,(y 

void  exercise3(void) 

{ 

register  int  *scm; 

/***************************************:|<:t<***j|<**)|<*.|<,t,,|<j(<*,|<:(,***,),l(,,(<,|y 

/*  attach  IPageup]  to  the  exercise2  function  */ 
setonkey(0x4900,Pexercise2,0); 

/*  ****’<<**#+*’('***********♦  ♦♦★♦♦♦♦it.*****^*****************^****^**^ 

/*  attach  [Pagedown]  to  the  exercise4  function  */ 
setonkey  (0x5 1 00,Pexercise4 ,0 ); 

/***++++*********+**++**++*+**++***+****** **********************/ 
if((scm=ssavc())==NULL)  error_exit(3); 

if((w[l  ]=wopen(20,42, 24,77, 3,MAGENTA!_BLUE,WHITELBLUE))==0) 
error_exit(  1 ); 
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whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  exercise  3.."); 
press_a_key(2); 
wcloseall( ); 

spawnl(  P_WAJT,"pq3.exe",NULL); 

srestore(scm); 

exercise4(); 

I 

void  exercise4(void) 

I 

register  int  *scm; 

/+++++*+++****++*****++*++**+*****+*+***+**********+*+*****+*+*/ 
/*  attach  [Pageupl  to  the  exercise3  function  */ 
setonkey(0x4900,Pexercise3,0); 

/**++***+*+**%+++***++*+****++*+*******+*++**+*******+*+++*+*++/ 
/*  attach  [Pagedown]  to  the  exercise?  function  */ 
setonkey(0x?100,Pexercise5,0); 

/******^.»****i|.*****************+***.(<**********  +  **********  +  ***:»y 

if((scm=ssave())==NULL)  error_exit(3 ); 

if((w[l  J=wopen(  20,42, 24 ,77,3, MAGENTAI_BLUE.WHrTELBLUF))==0) 
error_exit(  1 ); 
whelp  cat(HJWINTITLE); 
wputsw("Now  let  us  see  exercise  4.."); 
press_a_key(2); 
wcloseall(); 

spawnl(P_W  AIT, "pq4.exe”, NULL); 

srestore(scrn); 

exercise5(); 
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^*  ************  ******ltc*****Jt<**********.***********************»l'***********l 

void  exercise?(void ) 

I 

register  int  *scm; 

I* ************************************ *************************/ 

/*  attach  [PageupJ  to  the  exercise4  function  */ 
setonkey(0x4900,Pexercise4,0); 

/**************************************************************/ 

/*  attach  [PagedownJ  to  the  exercise6  function  */ 
se  t  onke  y  (Ox  ? 1 00 ,  Pexe  rc  ise6 ,0 ) ; 

/**************************************************************/ 

if((scrn=ssave( ) )==NULL)  error_exit(3 ); 

if((w| l]=wopen( 20.42, 24.77, 3, MAGENTAI_BLUE,WHITEIJBLUE))==0) 
error_exit(  1 ); 
whelpcaK  H_WINTITLE); 
wputsw("Now  let  us  see  exercise  5.  ” ); 
press_a_key(2); 
wclosealH ); 

spawn!  ( P  WAIT."pq?.exe",NULL); 

srestore(scrn): 

exetcise6( ); 

I 

void  exercise6(void) 

I 

register  int  *scrn; 

/*+****+******+++**++*+*+*+**++***+********+*********+++**+*++*/ 

/*  attach  [Pageupl  to  the  exercise?  function  */ 
setonkey(0x4900.Pexeicise?,0); 

^*;4^*  +  *  +  **  +  ***  +  +  *  +  **  +  *  +  ****4»***4r*+:f*  +  +  ****  +  *****  +  +  ***jft***  +  *jf**4y 

/*  attach  [Pagedown]  to  the  exercise7  function  *i 
setonkeytOx?  100,Pexercise7,0); 

if((scm=ssave(  ))==NULL)  error__exit(3); 

if((w[l  J-wopen(  20,42, 24, 77.3, MAGENTAI_BLUE,WHITEI_BLUE))==0) 
error_exit(  I  l: 
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whelpcat(H_WINTITLE); 
wputsw(”Now  iet  us  see  exercise  6.."); 
press.  a_key(2); 
wcloseaU(); 

spawnl(P_WAIT,"pq6.exe",NULL); 

srestore(scm); 

exercise7(); 

) 

void  exercise7(void) 

( 

register  int  *scrn; 

/***************************************************************y 

/*  attacli  [Pageup]  to  the  exercise6  function  */ 
setonkey(0x4900,Pexercise6,0); 

/*  attach  [PagedownJ  to  the  exercise8  function  */ 
setonkeylOx?  100,Pexercise8,0); 

j'*.**it*t********************************#************************i 

if((scni=ssave())==NULL)  error_exit(3); 

if((w[  1  )=wopen(20,42,24,77,3,MAGENTAI_BLUE,WHITEI_BLUE))==0) 
error_exit(  1 ); 
whelpcat(H_WINT!TLE); 
wputsw("Now  let  us  see  exercise  7.."); 
press_a_key(2); 
wcloseall(); 

spawnl(P_WAIT,'pq7.exe",NULL), 

srestore(scni); 

exercise8( ); 
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/*********************************************************************** 
void  exercise8(void) 

I 

register  int  *scm; 

^********** ******************* ***********************************  j 

/*  attach  fPageup]  to  the  exercise7  function  */ 
setonkey(0x4900,Pexercise7,0); 

y**************** **************************************** ********^ 

/*  attach  [Pagcdown]  to  the  exercise9  function  */ 
setonkey(0x5 100,Pexercise9,0); 

y********** *********************************************** *******/ 

if((scm=ssave())==NULL)  error_exit(3); 

if((w[  I  ]=wopen(20,42,24,77,3,MAGENTAIJBLUE,WHITEIJBLUE))==0) 
error_exit(  1 ); 
whelpcat  ( H_WINTITLE ) ; 
wputsw("Now  let  us  see  exercise  8.."); 
piess_akey(2); 
wcloseall(); 

spawnl(P_W  ATT.  "pq8.exe", NULL); 

srestore(scm): 

exercise9(); 


) 

y*  ********************************************** -!<***********************y 

void  exercise9(void) 

{ 


register  int  *scm; 


^% **************%***********************%***%***************%***/ 


/*  attach  [PageUp]  to  the  exercise8  function  */ 
setonkey  (0x4900 ,  Pexercise8 ,0 ) ; 


y***************************************************************y 


/*  attach  [Pagedown]  to  the  exerciselO  function  */ 
setonkey  (0x5 1 00,Pexercise  1 0,0); 

y***************************************************************y 


if((scm=ssave())==NULL)  error_exit(3 ); 

if((w[  1  J=wopen(20,42,24,77,3,MAGENTALBLUE,WHITELBLUE))==0) 
error_exit(  1 ); 
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whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  exercise  9.."); 
press_a_key(2); 
wcloseall(); 

spawnl(P_W  ATT, "pq9.exe", NULL); 

srestore(scm); 

exercise  10(); 

} 

^***********************************************************************y 

void  exercise  10( void) 

I 

register  int  *scm; 

y**************************************************************/ 

/*  attach  [Pageup]  to  the  exercise9  function  */ 
setonkey(0x4900,Pexercise9,0); 

/*+************+*%*****************************+******+*******+/ 

/*  attach  [Pagedown]  to  the  exercise  10  function  */ 
setonkey(0x5100,Pexercisel0,0); 

/****************%***.*******%*****************%****************/ 
if((scrn=ssave  ( )  )==NULL )  error_exit(3 ); 

if((w[l]=wopen(20, 42,24 ,77,3>MAGENTALBLUE,WHITELBLUE))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  exercise  10..”); 
press_a_key(2); 
wcloseall(); 

spawnl(P_W  ATT, "pql0.exe", NULL); 

srestore(scrn); 

normal_exit( ); 

) 
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^i*****************************************! Il*****************************^ 

/*  this  routine  calls  introduction  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/****+******+*****++*******+***+*+**+****+*+**+*+**++******++++*+++**+*+/ 
void  Pintroduction() 

( 

wcloseall(); 
introduction! ); 

) 

/*******4^**************************************************************/ 

/*  this  routine  calls  definition_3_6  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pdef_3_6() 

I 

wcloseallO; 

definition_3_6(); 


/*  this  routine  calls  example_3_10  routine  whenever  Pageup  or  Pagedown  */ 


/*  keys  are  pressed. 


I 


*/ 


*********************************************************************** 


7 


void  Pex_3_100 

{ 

wcloseallO; 
following  100; 

} 

/j^**********************************************************************/ 

/*  this  routine  calls  definition_3_7  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y*********************************************************************! <(*  j 

void  Pdef_3_7() 

I 

wcloseallO". 

definition_3_7(); 

I 


199 


/***********************************************************************/ 
/*  this  routine  calls  example_3_l  1  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pex_3_ll() 

{ 

wcloseall(); 

followingllO; 

) 

/+*+**+*+****+************+****+*****+++***++*+++**++*+**+++*++**+****+*/ 
/*  this  routine  calls  exainple_3_12  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^♦fc^********************************************************************/ 

void  Pex_3_12() 

( 

wcloseallO; 

following  12(); 

) 

/****  +  ***************:|<*******:|<*!|<******l|r*!|t********l|<!|c»'.**l|<**1|<*****1|.*  +  ****>tl>|y 

/*  this  routine  calls  example_3_13  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/****************************************************+******************/ 
void  Pex_3_13() 

( 

wcloseallO; 
following  1 30: 

} 

/*  this  routine  calls  example_3_14  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pex_3_14() 


wcloseallO; 
following  14( ); 
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/***********************************************************************/ 
/*  this  routine  calls  example_3_15  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pex_3_15() 

I 

wcloseall(); 

followingl5(); 


/*  this  routine  calls  exainple_3_16  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 


/ 


♦^i******************************************************************** 


V 


void  Pex_3_160 

I 

wcloseallO; 
following  1 6(): 

) 

/*  this  routine  calls  example_3_17  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y***********************************************************************/ 
void  Pex_3_17() 


wcloseall(); 

followingl7(); 

) 


/*  this  routine  calls  exaniple_3_18  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/**  +  +  *****  +  +***  +  ***  +  **************  +  **  +  **  +  *****  +  ********  +  ******  +  *  +  *****  +  +:/ 


void  Pex_3_18() 

I 


wcloseallO; 
followingl8( ); 

) 
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^******** ************************************************************** I 

/*  this  routine  calls  exainple_3_19  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

J+4,*********************************************************************/ 

void  Pex_3_190 

( 

wcloseallO; 
follow  ingl9(); 

} 

I***********************************************************************! 

/*  this  routine  calls  example_3_30  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pex_3_30( ) 

{ 

wcloseallO; 

following30(); 

) 

/I,***),**************#***************************************************/ 

/*  this  routine  calls  example_3_3 1  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^♦Jit*********************************************************************/ 

void  Pex_3_31() 

{ 

wcloseallO; 

following31(); 

} 

/*  this  routine  calls  example_3_32  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^***********************************************************************/ 
void  Pex_3_32() 

{ 

wcloseallO; 
follow  ing32(); 
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/*************************************************** ********************y 

/*  this  routine  calls  exaniple_3_39  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  *1 

/************  *********************  ***************************  ***********/ 
void  Pex_3_39( ) 

{ 

wcloseall(); 

fo!lowing39(); 

) 

/***********************************************************************/ 
/*  this  routine  calls  example_3_40  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

I***********************************************************************/ 

void  Pex_3_40( ) 

I 

wcloseallQ; 

following40(); 

) 

/***********************************************************************/ 
/*  this  routine  calls  exainple_3_41  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^***********************************************************************^ 
void  Pex_3_41() 

I 

wcloseall(); 

following41(); 


/+ ****++**+****+++****+****++**++********+**+**************************+/ 
/*  this  routine  calls  example_3_42  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pex_3_42( ) 


wcloseallO; 

following42(); 
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/***********************************************************************/ 
/*  this  routine  calls  definition_3_8  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^***********************************************************************y 

void  Pdef_3_8() 

{ 

wcloseallQ; 
definit  ion_3_8  ( ) ; 

) 

/*  ****************************************************** ****************/ 

/*  this  routine  calls  definition_3_9  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pdef_3_9( ) 

( 

wcloseall(); 

definition_3_9(.); 

) 

^***********************************************************************^ 
/*  this  routine  calls  definition_3_10  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y* **********************************************************************/ 

void  Pdef_3_l0() 

I 

wcIoseall(); 

definition_3_l0(); 


^***********************************************************************^ 
/*  tlris  routine  calls  definition_3_l  1  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

jin  ***************************************** *****************************y 

void  Pdef_3_l  1  () 


wcloseallO; 
definition_3_l  1(); 
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j* ******************** *************************************** ***********/ 

/*  this  routine  calls  defmition_3_12  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y***********************************************************************^ 

void  Pdef_3_l  2( ) 

I 

wcloseallQ; 
definition_3_  1 2( ); 

} 

/*  this  routine  calls  <lefinition_3_16  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pdef_3_16( ) 

I 

wcloseallQ; 

definition_3_16(); 

) 

/*  this  routine  calls  theorem_3_3  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pthm_3_3Q 

I 

wcloseallQ; 

fol  low  mgtlun_3_3  ( ); 


^♦l*********************************************************************^ 

/*  this  routine  calls  theorem_3_4  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y***********************************************************************^ 

void  Pthin_3_4( ) 

I 

wcloseallQ; 
theorem_3_4( ); 
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y***********************************************************************/ 

/*  this  routine  calls  theorem_3_5  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^*********!|<**********>l<**:t<**l|<>l<****l|<>t<***:t<***l(<**lk:t<*>l<****l|<****>t«**lt<****  +  ****l|y 


void  Pthm_3_5() 

{ 

wcloseall(); 

theorem_3_5(); 


) 

j* **********************************************************************/ 

/*  this  routine  calls  euler_circuits_and_paths  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

/***********************************************************************/ 
void  Peuler_circuits_and_paths() 

( 


wcloseall(); 

euler_circu  its_and_paths( ); 

) 

/*****%*****************************************************************/ 
/*  this  routine  calls  euler_circuit_algoritlun  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 


void  Peuler_circuit_algorithm() 

I 

wcloseall(); 

euler_circuit_algorillun( ); 


^***********************  +  *********+  +  ********%**********=t‘*’!<****’t'’i>’f<**+***>iy 

/*  this  routine  calls  hamilton  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

void  Phatnilton( ) 


wcloseallO; 

hainilton(); 
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/♦fr*********************************************************************^ 

/*  tliis  routine  calls  BFS_algorithm  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

/llc*************************#********************************************^ 

void  PBFS_algorithni() 

I 

wcloseall(); 

B  FS_algorithin( ) ; 

) 

^*  **♦**************************  +  *★**********★  +  ****■**•*  + ,,'.i<***4<:t<********:tt!|t*y 

/*  this  routine  calls  dijkstra_algorithm  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

/**+****+***************************************************+******+****/ 
void  Pdijkstra_algoritlmi() 

I 

wcloseall(); 

dijkstra_algoritlun(); 

) 

/*  this  routine  calls  isomorphism  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

j *  ★fc********************************************************************^ 

void  PisomorphismO 

( 

wcloseallQ; 

isomorphism!); 


/*  this  routine  calls  exercise  1  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

^fr**********************************************************************^ 

void  Pexercise  1  ( ) 

I 

wcloseall(); 
exercise  1(); 


) 
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I** *********************************************************************/ 

/*  this  routine  calls  exercise2  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

^* ***+*****************************************+*+***************+******/ 
void  Pexercise2( ) 

{ 

wcloseall(); 

exercise2(); 

) 

^**  **************************++**>(<*********+********+***★**+*★*  ***♦+*★**/ 

/*  this  routine  calls  exercise3  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

/***************************************+*******************************/ 
void  Pexercise3( ) 

I 

wclosealK); 

exercise3(); 

) 

^+**********  +  ******  +  >l<*  +  *’(«***  +  **>t<*****>t>  +  +  *’fr****>t'  +  *  +  >t<****  +  ***  +  ***  +  ***  +  ***itY 

/*  this  routine  calls  exercise4  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

void  Pexercise4( ) 

{ 

wclosealK); 

exercise4(,); 


/♦♦♦♦it-.******************************************************************/ 

/*  this  routine  calls  exercise5  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

^t,*************************************  *  +  *  +  *  +  +  +  +  +  *  +  *  +  +  +  +  +  +  +  +  +  +  j 

void  Pexercise5( ) 

( 

wclosealK); 

exercise5(); 

) 
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/*  this  routine  calls  exercise6  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

l***********************************************************************^ 

void  Pexercise6( ) 

{ 

wcloseall(); 

exercise6(): 

I 

^fr**********************************************************************/ 

/*  this  routine  calls  exercise7  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

void  Pexercise7( ) 

( 

w'dosealH ); 
exercise7( ); 

I 

y*****^*****************************************************************/ 
/*  this  routine  calls  exercise8  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

^***********************************************************************y 
void  Pexercise8( ) 

I 

wclosealK ); 
exercise8(); 

I 

/***********************************************************************/ 
/*  this  routine  calls  exercise9  routitie  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

void  Pexercise9( ) 


wcloseall( ). 
exucise9(t. 
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/*  this  routine  calls  exerciselO  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

void  PexerciselOO 


wcloseall(); 
exercise  10(); 


/♦^e***#*****************************************************************/ 

/*  this  routine  calls  ex_3_18cont  routine  w-henever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

/***#***************%***************#******************************%****/ 
void  Pex_3_18cont() 


wcloseall(); 
ex_3_18cont( ); 


/*  this  routine  calls  definition_3_15  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  Pdef_3_15( ) 


wcloseall(); 
definition  3 


50: 
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/*  PROGRAM  :  ex3_10.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 
REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 


Circuits". 

MACHINE/COMPILER  :  This  program 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


is  written  with  IBM  pc  by  using  Turbo 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
*  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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FUNCTION  DEFINITIONS 

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  4c  **  *  *  *  *  *  *  *  *  *  *  *  *  *  #  *  *  *  *  *  *  *  *! 


void  wait(char  titleQ); 
void  example_3_10  (void); 
static  void  confirm _graph_exit(void); 
static  void  normal_exit(void); 


^************************************************* 
MAIN  PROGRAM 

ft*************************************************/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  = ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

example_3_10(); 

setMode(3); 
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/***************************************************************** I******/ 


static  void  example_3_10(void) 

{ 


LINE  WIDTH  =  3  ; 
cls(l); 

drawRect(-309,2 10,3 10,-200,1 1); 

write_horz_str(-300,160,"  The  diagram  in  the  following  figure" 

"  represents  a  multigraph  but  not  a", 31); 
write_horz_str(-300,140,"  graph  because  there  are  two  parallel  edges" 
"  k  and  m  between  the", 31); 

write_horz_str(-300,120,"  vertices  Y  and  Z  and  a  loop  h  at  vertex" 

"  X",31); 

drawLine(- 100,-50, 100,-50,7); 
drawLine(100,- 50,120,50,1 1); 
drawLine(120,50,-120,50,l  1); 
aspect  =  .20; 

LINEWIDTH  =  1; 
drawArc(0,-50,20,0, 1 760,7,  aspect); 
aspect  =  1 .0; 

drawOval(140,70,25,7,aspect); 
fillOval(- 100,-50,3, 1 6,aspect); 
fillOval( 1 00,-50,3, 1 6,aspect) ; 
fillOval(  1 20,50,3, 1 6,aspect); 
fillOval(- 1 20,50,3, 1 6,aspect); 
write_horz_char(- 110,-60,90,31);  /*  Z  */ 
write_horz_char(  11 0,-60,89,31);  /*  Y  */ 
write_horz_char(130,65,88,31);  /*  X  */ 

write_horz_char(- 130,60,85,31);  /*  U  */ 
write_horz_char(0,65,103,31);  /*  g  */ 

write_horz_char(  165,95, 104,31);  /*  h  */ 

write_horz_char(  120,0, 106,31);  /*  j  */ 

write_horz_char(0,- 12, 107,31);  /*  k  */ 

write_horz_char(0,-57, 109,31);  /*  m  */ 

write_horz_str(-300,-90,"  In  a  multigraph  the  number  of  edges" 

"  incident  with  a  vertex  V  is  called  the",31); 
write_horz_str(-300,-l  10,"  degree  of  V  and  is  denoted  as  deg(V)." 

"  A  loop  on  a  vertex  V  is  counted",31); 
write_horz_str(-300,-130,"  twice  in  deg(V).  Thus,  in  the  Figure" 

"  deg(Y)  =  3  and  deg(X)  =  4.",31); 
wait(""); 
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/***********************************************************************/ 


void  wait(char  title[j) 

{ 

int  tab, width  Jine, mode; 
mode  =  getMode(&width); 

if  ((mode  ==  Oxll)  ||  (mode  ==  0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen (title) ) /2; 

gotoxy(tab.O); 

writS  tring(title,  WHITE  ,0) ; 

tab  =  (width  -  33)/2; 

gotoxy(tab,line); 

writStringC'Press  any  key  to  continue WHITE.O); 
if(waitkey()==ESC)  confirm_graph_exit(); 
cls(0); 

} 


/***********************************************************************/ 


static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
ifCmouse&MS_CURS)  mshidecur(); 

write_horz_str(- 300,-210,  "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31); 

} 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinitQ; 
normal_exit(); 
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break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exitO; 
break; 

case  ’n’;write_horz_str(-3(X),-210,"  ”,31); 

break; 

case  ’N’:write_horz_str(-3(X),-210,"  ",31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


/********** ******* ******************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

y* **********************************************************************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

} 


215 


/♦PROGRAM  :  ex3_ll.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 
REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors,  h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


/*********************************************************** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

*  *  *  4c  *  *  *  4c  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  4c  *  *  4c  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *j 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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/************************************************** 
FUNCTION  DEFINITIONS 

**************************************************/ 


void  wait(char  titleQ); 
void  example_3_l  1  (void); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 


^*  ************************************************ 
MAIN  PROGRAM 

*************************************************/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==’V’) 

1 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  == ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

example_3_l  1(); 
setMode(3); 
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*****<^****4^4^********************** *********************** **********/ 


static  void  example_3_l  l(void) 

{ 


LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,210,310, -200,1 1); 
write_horz_str(-300,160,"  In  the  following  figure  U,  g,  X  " 

"  is  a  path  of  length  1  from  U  to  X.  This’’,31); 
write_horz_str(-3(X),140,"  path  can  also  be  written  as  g." 

"  Likewise  g,  h  is  a  path  of  length  2",31); 
write_horz_str(-300,120,"  from  U  to  X,  and  U,  g,  X,  g,  U  is  a  path" 

"  of  length  2  from  U  to  U.",31); 

write_horz_str(-300,l(X),"  The  path  Z,  m,  Y  cannot  be  described  by  just" 

"  listing  Z,  Y  since  it  would",31); 

write_horz_str(-300,80) "  not  be  clear  which  edge  between  Z  and  Y," 

"  k  or  m,  is  part  of  the  path.",31); 


drawLine(- 100,- 100, 100,- 100,7); 
drawLine( 1 00,- 1 00, 1 20,0, 1 1 ); 
drawLine(  1 20,0,- 1 20,0, 1 1 ); 
aspect  =  .20; 

LINE  WIDTH  =  1; 

draw  Arc  (0,- 1 00,20,0, 1 760,7 ,  aspect); 

aspect  =  1.0; 

drawOval(140,20,25,7, aspect); 
fiUOval(- 100,- 100,3,1 6,aspect); 
fillOval( 100,- 1 00,3, 16,aspect); 
fiUOval(  1 20,0,3, 1 6, aspect); 
fillOval(-l  20,0,3, 16,aspect); 

write_horz_char(-1 10.-1 10,90,31);  /*  Z  */ 
write_horz_char(  110,- 110,89,31);  /*  Y  */ 
writeJiorz_char(  130, 15,88,31);  /*  X  */ 

write_horz_char(-130,10,85,31);  /*  U  */ 

write_horz_char(0,15,103,31);  /*  g  */ 

write_horz_char(  165,45, 104,31);  /*  h  */ 

write_horz_char(120,-50,106,31);  /*  j  */ 
write_horz_char(0,-62, 107,31);  /*  k  */ 

write_horz_char(0,- 107, 109,31);  /*  m  */ 

wait(""); 

} 
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y*  ************************************** ********************************/ 


void  wait(char  title[]) 

{ 

int  tab, width, line, mode; 

mode  =  getMode(&width) 

if  ((mode  =  Oxl  1)  II  (mode  ==  0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(dtle))/2; 

gotoxy(tab,0); 

writS  tring(title, WHITE, 0); 

tab  =  (width  -  33)/2; 

gotoxy(tab,line); 

writStringO'Press  any  key  to  continue WHITE, 0); 
if(waitkey  ()— ES  C)  confirm_graph_exit(); 
cls(0); 


} 


/***********************************************************************/ 


static  void  confirm _graph_exit(void) 

l 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  y )  H  (ch  ==  ’n’)  II  (ch  ==  *Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31); 

} 

switch  (ch)  { 
case  *y’:  setMode(3); 
videoinitQ; 
normal_exit(); 
break; 
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case  ’Y’:  setMode(3); 
videoinitO; 
normal_exitO; 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


/***********************************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/***********************************************************************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 
gotoxy_.(crow,ccol) ; 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 

} 
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/*  PROGRAM  :  ex3_12.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 

REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

^include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


/*********************************************************** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

ft*********************************************************/ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 


unsigned  long  int 


double  aspect; 


static  int  *savescm,crow,ccoI; 
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/**************4^********************************* 

FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait(char  titleO); 
void  example_3_12  (void); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 


/************** *********************************** 
MAIN  PROGRAM 

*************************************************/ 


main() 

{ 

cls(l); 

adapt  =  getAdapter(); 
if  (adapt  ==’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 
setCG  APalette(O) ; 
cls(l); 

} 

example_3_12(); 

setMode(3); 
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/***********************************************************************/ 


static  void  example_3_12(void) 

{ 


LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,2 10,3 10,-200,1 1); 

write_horz_str('300,160,"  For  the  graph  in  the  following  figure" 

"  the  edges  a,  c,  d,  j  form  a  simple",31); 
write_horz_str(-300,140,"  path  from  U  to  Z,  whereas  a,  c,  m,  d,  j  is  a" 

"  path  from  U  to  Z  that  is  not",31); 
write_horz_str(-300,120,"  a  simple  path  because  the  vertex  W  is" 

"  repeated.  Similarly,  e,  i  is  a",31); 
writ  e_horz_str(-300,100,"  simple  path  from  X  to  Z,  but  f,  i,  j  is  a" 

"  path  from  X  to  Z  that  is  not  a",31); 
write_horz_str(-300,80,"  simple  path.  Note  also  that  c,  p,  f,  i,  e," 

"  n  is  a  path  from  V  to  U  that  is",31); 
write_horz_str(-300,60,"  not  simple,  but  deleting  f,  i,  e  produces" 

"  a  simple  path  c,  p,  n  from  V  to  U.",31); 
write_horz_str(-300,40,"  This  illustrates  the  following  result.  ",31); 


drawLine(-l  10,-10,40,-10,1 1);  /*  c  */ 

drawLine(- 110,- 10,- 140,-50, 11);/*  b  */ 
drawLine(- 140,- 50,30,-60, 11);  /*  n  */ 

drawLine(30,-60,40,-10,ll);  /*  p  */ 

drawLine(30,-60,30,- 1 50, 1 1 );  /*  f  */ 

drawLine(30,- 150, 100,-80, 11);  /*  i  */ 

drawLine(30,-60, 100,-80, 11);  /*  e  */ 

drawLine(40, -10,100,-80,11);  /*  d  */ 

drawLine(30,- 150,- 140,-85,1 1);  /*  h  */ 
drawLine(- 140,-85,- 140,-50, 1 1);  /*  g  */ 

aspect  =  .30; 

LINE  WIDTH  =  1; 

drawArc(65,-l  15,37,2500,730,1 1, aspect); 
aspect  =  2.0; 

draw  Arc(- 1 25,-34,38,400,2000, 1 1  .aspect); 
aspect  =  1.0; 

drawOval(58,8,25, 1 1  .aspect); 
fillOval(- 110,-1 0,3, 1 6,aspect); 
fillOval(40,-  10,3,16,aspect); 
fillOval(- 140,-50,3, 1 6, aspect); 
fillOval(30,-60,3, 16, aspect); 
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fillOval(30,- 1 50,3, 1 6, aspect); 
fillOvai(  1 00,-80,3, 1 6,aspect); 
fillOval(- 140,-85,3, 16,  aspect); 

write_horz_char(30,- 160,90,31);  /*  Z  */ 
write_horz_char(  105,-85,89,31);  /*  Y  */ 
write_horz_char(  10,-40,88,31);  /*  X  */ 

write_horz_char(50, 0,87,3 1 );  l*  W  */ 

write_horz_char(- 100,5,86,31);  /*  V  */ 

write_horz_char(- 160,-50,85,31);  /*  U  */ 
write_horz_char(- 150,-85,82,31);  /*  R  */ 

write_horz_char(- 160,-20,97,31);  /*  a  */ 

write_horz_char(- 120,-30,98,31);  /*  b  */ 
write_horz_char(-60,5,99,31);  /*  c  */ 
write_horz_char(80,-35, 100,31);  /*  d  */ 
write_horz_char( 60,-75, 101, 31);  /*  e  */ 

write_horz_char(40,- 105, 102,31);  /*  f  */ 

write_horz_char(-135, -62,103, 31);  /*  g  */ 

write_horz_char(-45,-128,104,31);  /*  h  */ 

write_horz_char(60,- 100, 105,31);  /*  i  */ 

write_horz_char(  160,- 100, 106,31);  /*  j  */ 

write_horz_char(75,40, 109,31);  /*  m  */ 

write_horz_char(-55,-65,110,31);  /*  n  */ 

write_horz_char(40,-35,l  12,31);  /*  p  */ 

wait  ('"'); 


^***********************************************************************^ 

void  wait(char  title[]) 

{ 

int  tab, width ,line,mode; 
mode  =  getMode(&width); 
if  ((mode  ==0xll)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
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gotoxy(tab.O); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringC'Press  any  key  to  continue WHITE, 0); 
if(waitkey()=ESC)  confirm_graph_exit(); 
cls(0); 

} 

/**********<*************************************************************/ 
static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kbIist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(- 300,-2 10, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31); 

} 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 
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,31); 


case  ’N’:write_horz_str(-3(X),-210," 
break; 

default :  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


H c**********************************************************************/ 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


^***********************************************************************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

} 
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/♦PROGRAM  :  thm3_3.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  a  theorem  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  EBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=0xFFFFFFFF; 
double  aspect; 


227 


^k************************************************ 

FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait(char  title[]); 
void  thcorcm_3_3  (void); 
void  confinn_graph_exit(void); 
void  nonnal_exit(void); 

MAIN  PROGRAM 

*  *  *  **  **  *  4c  *  *  ***  *****  *  ***  **  *  *  ***  ******  if  *  *  **  ***  *  **  *  *  *J 

main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  'E’) 

I 

setMode(16); 

cls(l): 


if  (adapt  =  ’C’) 

( 

setMode(4 ); 

setCGAPalette(O); 

cls(l); 

} 

theorem_3_3(); 

setMode(3); 
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static  void  theorem_3_3(void) 


LINEWIDTH  =  3; 

cls(l); 

drawRect(-309,210,3 10,-200,1 1); 
write_horz_str(-300,200,"  THEOREM  3.3  ”,11); 

write_horz_str(-190,200, "Every  U-V  path  contains  a  U_V  simple  path",31); 
write_horz_str(-300,180,"  Proof:  ",11); 

write_horz_str(-235,180,"  Let’s  suppose  that  U  =  Vl,el,V2,...,en,Vn+l" 

"  =  V  is  a  U-V  path.  In”, 31); 

write_horz_str(-300,165,"  the  special  case  that  U  =  V  we  can  choose" 

"  our  U-V  simple  path  to  be", 31); 

write_horz_str(-300,150,"  just  the  vertex  U.  Now  suppose  U  and  V  are" 

"  different.  If  all  the  vertices",31); 
write_horz_str(-300,135,"  Vl,...,Vn+l  are  different  initially,  then" 

"  our  path  is  already  a  U-V",31); 
write_horz_str(-300,120,"  simple  path.  Thus, let’s  suppose  that" 

"  at  least  two  of  the  vertices  are", 3 1 ); 
write_horz_str(-300,105,"  the  same,  say  that  Vi  =  Vj  where  i  <  j.  See" 

"  die  Figure  for  an  illustration",31); 
write_horz_str(-300,90,"  of  how  a  path  from  Vi  to  Vj  is  found.", 31); 


drawLine(-60,70,0,20,3 1 ); 
drawLine(60,70,0,20,3 1 ); 
drawLine(0,20,- 1 00,-30,3 1 ); 
drawLine(0, 20, 100,-30,31); 

aspect  =  1 .0; 

fillOval(0,70,3 , 1 6,aspect); 
fillOval( -20.70,3, 16, aspect); 
fillOval(20,70,3,l6,aspect); 
fillOval(-60.70,3,16,aspect); 
fillOval(60,70,3,16,aspect); 

Fill  Oval(0.20, 3, 16, aspect); 
fillOvaK- 1 00,-30,3, 16,aspect); 
fillOval(  100.-30, 3, 16, aspect); 


write_horz_char(-30,60, 101,31);  /*  e  */ 
write_horz_str(-23,55,"j-r’,31);  /*esubJ-l  */ 
write_horz_char(45,50,101,31);  /*  e  */ 
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write_horz_char(52,45,105,31 );  /*  e  sub  i  */ 

write_horz_char(60 ,10,101,31);  /*  e  */ 

write_horz_char(67,5, 106,31);  /*  esubj  */ 

write_horz_char(-50,-10,101,31);  /*  e  */ 
wrlte__horz_str(-43,-  15,"i-I ”,3 1 );  /*  e  sub  i-1  */ 
write_horz_str(-20,5,"V  =  V",31);  /*  V  =  V  */ 
write_horz_char(- 13,0, 105,31);  /*  V  sub  i*/ 

write_horz_char(20,0,106,31);  /*  V  sub  j  */ 

wiite_horz_cliar(-100, -35 ,86,31);  /*  V  */ 
write_horz_char(100,-35,86,31);  /*  V  */ 

write_horz_str(-93,-40,"i-r,,31);  /*  V  sub  i-1  */ 
write_horz_str(  1 07  ,-40,"j+ 1"  ,3 1 );  /*  V  sub  j+1  */ 


writejhorz_str(-300,-60,"  We  delete  ei,  Vi+l,...,ej-l,Vj  from” 

"  die  original  path.  What  has  been",31); 
write_horz_str(-300,-75,"  deleted  is  the  part  that  is  between" 

"  vertex  Vi  and  edge  ej.  This  still", 31); 
write_horz_str(-300,-90,"  leaves  a  path  from  U  to  V.  If  there  are" 

"  only  distinct  vertices  left  after",31); 
write_horz  str(-300,- 1 05 ,"  this  deletion,  then  we  are  done.  If  there" 

"  are  still  repetitions  among  the",31); 
write_horz_str(-300,-120,"  remaining  vertices,  the  above  process" 

"  is  repeated.  Because  the  number  of' ,31); 
write_horz_str(-300,-135,"  vertices  is  finite,  this  process  will" 

"  eventually  end  and  give  a  U-V  simple",31); 
write_horz_str(-300,-150,"  path  from  U  to  V.",31); 
wait("Tlieorem  3.3"); 

} 


/************%*************%*************%****%**************%**********/ 


void  wait(char  title[J) 


int  tab,width,luie,mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x1 1)  II  (mode  ==  0x12)) 
line  =  29; 


else 


line  =  24; 

tab  =  (width  -  strlen(tide))/2; 
gotoxy(tab.O); 
writString(title, WHITE, 0); 
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tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringC'Press  any  key  to  continue  WHITE, 0); 

getchu, 

cls(0); 


} 

j*  ********************************************  ******************  **++****/ 

static  void  confinn_graph_exit(void) 

( 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(jrnouse&MS_CURS)  mshidecur(); 

write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (): 

while  (!((ch  ==  y )  II  (ch  =  ’n’)  II  (ch  ==  ’Y’>  II  (ch  ==  *N’)))  { 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getch  (); 


switch  (ch)  \ 

case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
nonnal_exit(); 
break; 
case  ’n’: 

break: 
case  ’N’: 

break; 

default :  break;  ) 
if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  f*  restore  any  hidden  hot  keys  */ 
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/*  tliis  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  normal_exit(void) 

( 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(O); 
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/♦PROGRAM  :  ex3_13.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4, 1990 

REVISED  •  Mar  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


^************************************************************ 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

♦I******#****************************************************/ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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^************************************************ 
FUNCTION  DEFINITIONS 

**************4^*********************************/ 


void  wait(char  tideO); 
voidexample_3_!3  (void); 
static  void  confirm_graph_exit(void); 
static  void  nonnal_exit(void); 


yT************************************************* 

MAIN  PROGRAM 

*************************************************/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

example_3_13(); 

setMode(3); 
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/************************************ ************************** *********/ 


static  void  example_3_13(void) 

{ 

LINE  WIDTH  = 
cls(l); 

drawRect(-309,210, 3 10,-200,1 1); 

write_horz_str(-300,180,"  The  multigraph  in  the  following  figure" 
"  is  connected  since  a  path  can  be",31); 
write_horz_str(-300,165,"  found  between  any  two  vertices.  ",31); 
drawLine(-l  10,100,40,100,1 1);  /*  c  */ 

drawLine(-l  10,100,-140,60,11);  /*  b  */ 
drawLine(- 140,60,30,50,11);  /*  n  */ 

drawLine(30,50,40, 100,1 1);  /*  p  */ 

drawLine(30,50,30,-40,l  1);  /*  f  */ 

drawLine(30,-40,100,30,ll);  /*  i  */ 

drawLine(30,50, 100,30, 11);  /*  e  */ 

drawLine(40, 1 00, 1 00,30, 1 1 );  /*  d  */ 

drawLine(30,  40,-140,25,1 1);  /*  h  */ 

drawLine(- 140,25 ,-140,60, 11);  /*  g  */ 


aspect  =  .30; 

LINE  WIDTH  =  1; 

drawArc(65,-5,37,2500,730, 1 1  .aspect); 
aspect  =  2.0; 

draw  Arc(- 125,76,38,400,2000, 1 1  .aspect); 
aspect  =  1.0; 

drawOval(58,l  18,25,1 1, aspect); 
fiUOval(-l  10,100,3,16,  aspect); 
fillOval(40, 100  3, 1 6, aspect); 
fiHOval(- 1 40,60,3, 1 6,aspect); 
fillOval(30,50,3, 1 6,aspect); 
fillOval  (30,-40,3, 1 6, aspect); 
fillOval(  1 00,30,3, 16, aspect); 
fillOval(- 1 40,25,3, 1 6, aspect); 
write_horz_char(30,-50,90,31);  /*  Z  */ 
write_horz_char(105,25,89,31);  /*  Y  */ 
write_horz_char(  10,70,88,31);  /*  X  */ 

write_horz_char( 50, 110,87,31);  /*  W  */ 
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write_horz_char(-100,115,86,31);  /*  V  */ 

write_horz_char(- 160,60,85,31);  /*  U  */ 
write_horz_char(- 1 50,25,82,3 1 );  /*  R  */ 
write_horz_char(- 160,90,97,31);  /*  a  */ 

write_horz_char<- 120,80,98,31);  /*  b  */ 
write_horz_char(-60, 11 5,99,31);  /*  c  */ 
write_horz_char(80,75,100,31);  /*  d  */ 
writc_horz_char(60,35,101,31);  /*  e  */ 

write_horz_char(40,5, 102,3 1 );  /*  f  */ 

write_horz_char(- 135,48, 103,31);  /*  g  */ 

write_horz_char(-45,-18,104,31);  /*  h  */ 

write_horz_char(60, 10, 105,31);  f*  i  */ 
write_horz_char(160,10,106,31);  !*']*! 

write_horz_char(75, 150, 109,31);  /*  m  */ 

write_horz_char(-55,45, 110,31);  /*  n  */ 

write_horz_chai<40,75, 112,31);  /*  p  */ 

write_horz_str(-300,-65,”  However,  the  graph  in  the  following  " 

"  Figure  is  not  connected  since  there  is",3l); 
write_horz_str(-300,-80,"  no  path  from  vertex  U  to  vertex  W.",31); 
drawLine(- 100,- 100, 1 00,- 1 65, 1 1 ); 
drawLine(- 100,- 130, 100,- 130,1 1); 
fiUOvaK- 100,- 100,3, 16,aspect); 
fillOval  ( 1 00,- 1 65,3, 1 6,aspect); 
fiUOval(- 100,- 1 30,3, 1 6,aspect); 
fillOval(  100,- 1 30,3, 1 6,aspect); 
write_horz_char(-l  15,-100,85,11);  /*  U  */ 
write_horz_char(  105,-1 65,84, 1 1);  /*  V  */ 
write_horz_char(-115,-130,86,ll);  /*  W  */ 
write_horz_char(  105 ,-130,87, 11);  /*  X  */ 

wait(,,M); 

} 
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^***********************************************************************/ 


void  wait(char  title[]) 

{ 

int  tab,width,line,mode; 
mode  =  getMode(&width); 

if  ((mode  —  Oxl  1)  II  (mode  ==0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(title»/2; 

gotoxy(tab,0); 

writS  tring(title,WHlTE,0); 

tab  =  (width  -  33)/2; 

gotoxy(tab,line); 

writString("Press  any  key  to  continue WHITE, 0); 
if(waitkey()=ESC)  confirm_graph_exit(); 
cls(0); 


) 


^**4t************************************************************  *******/ 


static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300, -210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-2 ' 0,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-2l0,"  ",31); 

) 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 
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case  ’Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-3(X),-210,"  ”,31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


/**** ******+******************************************************** ****y 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/******************** ***************************************************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_naouse)  mshidecur(); 

showcurO; 

exit(0); 

} 
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/*  PROGRAM  :  ex3_14.c 
AUl'HOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  EBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h” 

#include  "cxldef.h" 

#include  "cxlkey  .h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h” 


/*  *********************  +  *****************************  +  ****** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=l; 

unsigned  long  bit  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  bit  *savescm,crow,ccoI; 
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/************************************************** 
FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait(char  title[]); 
void  example_3_14  (void); 
static  void  confirm_graph_exit(void); 
static  void  nonnal_exit(void); 


/************************************************* 


MAIN  PROGRAM 


*************************************************/ 


main() 


cls(l); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

( 

setMode(0xl2); 

cls(I); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

) 

if  (adapt  ==  ’C’) 

( 

setMode(4); 
sctCG  APalette(0 ) ; 
cls(l); 

I 

example_3_14(); 

setMode(3); 
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static  void  example_3_14(void) 

< 

LINE  WIDTH  =  3; 

cls(l); 

drawRect(-309,2 10,3 10,-200,1 1); 

write_horz_str(-300,160,"  For  the  multigraph  in  the  following  figure" 

"  the  edges  a,  c,  p,  n  form",31); 

write_horz_str(-300,140,"  a  cycle.  Likewise,  the  edges  g,  b,  c,  p,  f," 

"  h  form  a  cycle.  Furthennore  the",31); 

write_horz_str(-300,120,"  edges  f,  p,  d,  e,  n,  g,  h  do  not  form" 

"  a  cycle  because  the  vertex  X",31 ); 

write_horz_str(-300,100,"  is  used  twice.", 31); 


drawLine(-l  10,-10,40,-10,11);  /*  c  */ 

drawLine(-l  10,-10,-140,-50,11);  /*  b  */ 

drawLine(- 140,-50,30,-60, 11);  /*  n  */ 

drawLine(30, -60,40, -10,1 1 );  /*  p  */ 

drawLine(30,-60,30,-150,ll);  /*  f  */ 

drawLine(30,- 150, 100,-80, 11);  /*  i  */ 

drawLine(30, -60,100,-80,11);  /*  e  */ 

drawLine(40,-10, 100, -80,11);  /*  d  *1 

drawLine(30.- 1 50,-140,-85,1 1 );  /*  h  */ 

drawLme(-140,-85,-140,-50,l  1);  /*  g  */ 


aspect  =  .30; 

LINE  WIDTH  =  1; 

draw  Arc(65,-1 15,37,2500,730,1 1, aspect); 
aspect  =  2.0; 

draw  Arc(- 125  ,-34,38, 400, 2000, 1 1, aspect); 
aspect  =  1.0; 

drawOval(58,8,25,l  1, aspect); 
fillOval(-l  10, -10, 3, 16, aspect); 
fillOval(40,- 10,3, 16, aspect); 
fillOval(-140,-50,3,16,aspect); 
fillOval(30.-60,3,i6,aspect); 
fillOval(30,- 150,3, 16, aspect); 
fillOvah  100,-80,3, 16, aspect); 
fillOval(- 1 40,-85 ,3 , 1 6, aspect ); 
write_horz_char(30,-160,90,31);  /*  Z  */ 
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write_horz_char(105,-85,89,31);  /*  Y  */ 
write_horz_char(  10,-40,88,31);  /*  X  */ 

write_horz_char(50,0,87,31);  /*  W  */ 

write_horz_char(- 1 00,5,86,31);  /*  V  */ 

write_horz_char(- 160,-50,85,31);  /*  U  */ 
write_horz_char(- 150,-85 ,82,31);  /*  R  */ 
write_horz_char(- 160,-20,97,31);  /*  a  */ 
write_horz_char(-120, -30,98, 31);  /*  b  */ 
wrire_horz_char(-60,5,99,3 1 );  /*  c  */ 

write_horz_char(80, -35, 100,31);  /*  d  */ 

write_horz_char( 60 ,-75 ,101,31);  /*  e  */ 

write_horz_char(40,-105,102,31);  /*  f  */ 

write_horz_char(-135,-62,103,31);  /*  g  */ 

write_horz_char(-45,- 128, 104,31);  /*  h  */ 

write_horz_char(60,-100,105,31);  /*  i  */ 

write_horz_char(160,-100,106,31);  /*  j  */ 

write_horz_char(75,40, 109,31);  /*  m  */ 

write_horz_char(-55,-65,l  10,3 1 );  /*  n  */ 

write_horz_char(40,-35,112,31);  /*  p  */ 

wait(""); 


void  wait(char  titlef] ) 

I 

int  tab,widthJine,mode; 
mode  =  getMode(&width); 

if  ((mode  ==  Oxll)  II  (mode  ==  0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
wiitStrijig(title,WHITE,0); 
tab  =  (width  -  3 3  )/2 ; 
gotoxy(tab,line); 

writString(" Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm _graph_exit(); 
cls(0); 
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} 

/******************************** ********************* ******************/ 
static  void  confirm_graph_exit(void) 


I 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_hoiz_str(-300, -210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  ( 
write_horz_str(30,-210,"  Please  type  y  orn",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31>; 


) 

switch  (ch)  { 

case  ’ y setMode(3); 
videoinit(); 
nonnal„exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
nomial_exit(); 
break; 


case  ’n’:write_horz_str(-300,-210,”  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ”,31); 

break; 


default  :  break; 

I 

if(_mouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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I 

^/***********************************************************************y 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/**********************************************************************4y 

static  void  normal_exit(void) 

I 


srestore(savescm); 
gotoxy_(crow  ,ccol) ; 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 


I 
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/*  PROGRAM  :  ex3_15.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

* 7 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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/************************************************** 
FUNCTION  DEFINITIONS 

**************************************************/ 


void  wait(char  title  []); 
void  example_3_15  (void); 
static  void  confirrn_graph_exit(void); 
static  void  normal_exit(void); 


/************************************************** 


MAIN  PROGRAM 


**************************************************^ 


main() 

I 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 


if  (adapt  ==  ’E’) 

( 

setMode(16); 

cls(l); 

) 

if  (adapt  ==  ’C’) 

I 

setMode(4); 

setCGAPalette(O); 

cls(l); 

> 

exaiTiple_3_15(); 

setMode(3); 
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/**+***+**+*+**********+******++************************+***+******++++*/ 


static  void  example_3_15(void) 

{ 


LINEWIDTH  =  3; 
cls(l); 

drawRect(-309, 210, 3 10,-200,11); 

write_horz_str(-300,160,"  For  the  graph  in  the  Figure  (a)  the  path" 

"  a,  b,  c,  d  is  an  Euler  circuit",31); 

write_horz_str(-300,140,"  since  all  the  edges  are  included  and  each" 

"  edge  is  included  exactly  once.",3 1 ); 
write_horz_str(-300,120,"  However,  the  graph  in  Figure  (b)  has" 

"  neither  an  Euler  path  nor"  ,31); 

write_horz_str(-300,100,"  circuit  because  to  include  all  the  three" 

"  edges  in  a  path  we  would", 31 ); 

write_horz_str(-300,80,"  have  to  backtrack  and  use  an  edge  twice." 

"  For  the  graph  in  Figure  (c)",31); 
write_horz_str(-300,60,"  there  is  an  Euler  path  a,  b,  c,  d,  e,  f ' 

"  but  not  an  Euler  circuit.", 3 1 ); 
drawLine(- 170,0,-1 30,0,11);  /*  a  */ 

drawLine(- 130,0, -170,-60,11);  /*  b  */ 

drawLine(- 170,-60,- 130,-60, 11);  /*  c  */ 

drawLinet- 130,-60,- 170,0, 11);  /*  d  */ 

aspect  =  1.0; 

fdlOvaI(- 1 70,0,3 , 1 6, aspect); 
fdlOval(-130,0,3,16,aspect); 
fillOval(-170,-60,3,l  6, aspect); 
fi!10val(-130,-60,3,16,aspect); 
fil  lOv  al(  - 1 70 ,0 ,3 , 1 6  .aspect ); 


drawLine(-30,0,-30,-60,l  1 ); 
drawLine( -60,0,-30,-60,1 1); 
drawLine(0,0,-30,-60,l  1); 
fillOval(-30.0,3,16,aspect); 

fU10val(-30,-60,3,16,aspect); 
fillOval(-60.0,3 , 1 6, aspect); 
fillOval(0,0.3 , 1 6, aspect); 


drawLine{70,-30,70,-60,ll);  /*  a  */ 

drawLine(70,-30, 100,-30, 11);  /*  b  */ 
drawLine(  1 00,-30,85, 1 0, 1 1);  /*  c  */ 
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drawLine(85, 10, 140,-30, 11);  /*  d  */ 
drawLine(  140,-30,70,-60, 11);  /*  e  */ 
drawLine(70,-60, 100,-30,11);  /*  f  */ 
fillOval(70,-30,3,l  6, aspect); 
fillOval(70,-60,3 , 1 6, aspect ) ; 
fill0val(100,-30,3, 16, aspect); 
fiUOval(85.10,3,16,aspect); 
fillOval( 1 40,-30,3 , 1 6, aspect ); 
fillOval(  140,-30,3 , 1 6, aspect); 

write_horz_char(- 150,20,97,3 1 );  /*  a  */ 

write_horz_char(- 170,-30,98,31);  /*  b  */ 

write_horz_char(- 150,-65 ,99,31);  /*  c  */ 

write_horz_char(-135,-30,100,31);  /*  d  */ 

write_horz_char(60,-40,97,31);  /*  a  */ 

write_horz_char(75, -15, 98,31);  /*  b  */ 

write_horz_char(80,-3,99,31);  /*  c  */ 

write_horz_  chart  1 13,5,10^,31);  /*  d  */ 

write_horz_char(105, -50,101, 31);  /*  e  */ 
write_horz_char(75,-35,102,31);  /*  f  */ 

write Jiorz_str(- 1 55  ,-80, "(a)"  ,31);  /*  (a)  */ 

write_horz_str(-30,-80,"(b)",31);  /*  (b)  */ 

write_horz_str(105,-80,"(c)",31);  /*  (c)  */ 

write_horz_str(-300,-100,"  As  we  proceed  along  an  Euler  path  or" 

"  circuit,  each  time  an  intermediate",31); 
write_horz_str(-300,-l  15,"  vertex  is  reached  along  some  edge" 

"  there  must  be  another  edge  for  us",31); 
write_horz_str(-300,-130,"  to  exit  that  vertex.  In  fact,  whenever” 

"  each  vertex  has  even  degree  the",31); 

write_horz_str(-300,-145,"  following  algoritlmi  produces  an  Euler  circuit. ”,31); 
wait(""); 


248 


^***************** ********************* *********************************/ 


void  wait(char  title[]) 

I 

int  tab,width,line,mode; 

mode  =  getMode(&width); 

if  ((inode  =  Oxl  1)  II  (mode  ==  0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 

writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringC Press  any  key  to  continue  WHITE, 0); 

if(waitkey(  )=ESC)  confinn_graph_exit(); 
cls(0); 


/I***********************************************************************/ 

static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
chat  ch; 

kblist=cligonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  inshidecur(); 

write_horz_str(-300,-2 10, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write  Jiorz_str(30,-2 10,"  "  ,3 1 ); 

} 

switch  (ch)  { 

case  ’y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 
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case  ’Y’:  setMode(3); 
videoiiiit(); 
nomial_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",3 1 ); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ,31); 

break; 

default ;  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgoukey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*********+******+****+***************+****++*******+******+***+****+***/ 
/*  this  function  handles  normal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/*+******************+**********************+******* H*******************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 
gotoxy  _(crow  .ccol ) ; 
if(_mouse)  mshidecur(); 
showcur( ); 
exit(0); 
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/♦PROGRAM  :  ex3_16.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.li" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


/************************************  i*-i<.i..i<**********>tt***** 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

I********************************************************/ 


char  adapt; 

int  color  =  2; 

in*  LHk,EWIDTH=l; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 


1 
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'************************************************** 
FUNCTION  DEFINITIONS 


*****  ******  ********************************** *****^ 


void  wait(char  title[J); 

void  exainple_3_16  (void); 

void  ex_3_16_cont  (void); 

static  void  confirm_graph_exit(void); 

static  void  normal_exit(void); 


/*************************************************** 
MAIN  PROGRAM 

**************************************************/ 


main() 

I 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  'V'  ) 


setMode(0xl2); 

cls(l); 

1 

if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(l); 

) 

if  (adapt  ==  'C') 

I 

setMode(4); 
setCGAPalette(O); 
cls(l ); 

I 

exar.jple_3_l  6(); 
setMode(3): 
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^***************** ****************************************************** I 

static  void  example_3_16(void) 

I 

/*******************************  ****************  ***********  •.<  ************  j 

f*  attach  [PageUp]  to  the  example_3_16  function  */ 
setonkeyt. 0x4900, example_3_l  6,0); 

^*  ************************************************************* *********/ 
/*  attach  [Pagedown]  to  the  ex_3_16_cont  function  */ 
setonkey(0x5100,ex_3_16_cont,0); 

LINE  WIDTH  =  3; 

cls(l); 

dra  wRect(  -309,2 1 0,3 1 0,-200,  II); 

write_horz_str(-300,l80,"  For  the  graph  in  the  following  figure," 

"  it  may  be  possible  to  look  at  the",31); 
wri  w_horz_str(-300,160,"  graph  and  with  minimal  trial  and  error" 

"  construct  an  Euler  circuit. ", 3 1 ); 

write_horz_str(-300,140,"  However  for  the  purpose  of  illustration" 

"  let  us  use  the  Euler  circuit", 31 ); 
write_horz_str(-300,120,"  algorithm."  ,3 1 X 
drawRect(-40, 80,40,40.  ID; 
drawLine(40 ,40,30.0,1 1 );  /*  g  */ 
drawLine(40,40, 120,0,1 1);  /*  e  */ 
drawLine(30.0, 120,0, 11);  /*  f  7 


aspect  =  0.5; 

LI  NE  WIDTH  =  1; 
drawOvaK- 10,0,20,1  1  .aspect); 
aspect  =  1 .0; 

fillOvaK -40.80,3 , 1 6, aspect ); 
frllOval(40,80,3,16,aspect); 
fdlOval(40.40.3, 16, aspect); 
frllOval(-40.40,3,16.aspect); 
fd!0val(30.0,3, 16, aspect); 
fillOvali  120,0, 3, 16,  aspect); 
fillOval(-50.0,3, 1 6, aspect ); 

write_horz_char( -50.45,83,3 1 ); 
write_horz_char(  30,-5,84,3 1 ); 
wiite_horz_char(50,50,85,3 1 ); 
write_horz_char( -50,90.86,3 1 ); 


r  s  */ 
/*  x  */ 
/*  y  */ 

/*  v  */ 
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write  Jriorz_char(50,90,87,3 1 );  /*  W  */ 

write_horz_char(  130,0,88,31);  /*  X  */ 

write_horz_char(-60,5,89,31);  /*  Y  */ 

write_horz_char(0,95,97,31);  /*  a  */ 

write_horz_char(45,70,98,31);  /*  b  */ 

write_horz_char(0,55,99,31);  /*  c  */ 

write_horz_char(-50,65, 100,31);  /*  d  */ 

write_horz_char(75, 40,101, 31);  /*  e  */ 

write_horz_char(75,-5,102,31);  /*  f  */ 

write_horz_char(40,25, 1 03 ,3 1 );  /*  g  */ 

write_horz_char(-10,17,104,31 );  /*  h  */ 

write Jhorz_char(-l 0,-23, 105, 31 );  /*  i  */ 
write_horz_str(-300,-45,"  First  choose  some  vertex  at  which  to" 

"  begin,  say  V.  Next  choose  an  edge",31); 
write_horz_str(-300.-60,"  on  V,  say  a.  Then  the  other  vertex  on" 

"  the  edge  a  is  W  and  W  is  not",31); 
write_horz_str(-300,-75,"  equal  to  V.  Since  there  is  only  one  unused" 

"  edge  on  W,  namely  the  edge  b,",31 ); 
write_horz_str(-300,-90,"  we  choose  b.The  other  vertex  on  the" 

"  edge  b  is  the  vertex  U  and  U  is", 31 ); 
writejiorz_str(-300,-105,"  not  equal  to  V.  Since  there  are  three" 

"  unused  edges  on  U,  arbitrarily",31); 
writejtorz_str(-300.-120,"  choose  an  edge,  say  edge  c.  Then  edge  d" 

"  must  be  chosen  next,  returning", 3 1 ); 
write_horz_str(-300,-135,"  our  path  to  vertex  V.  These  edges  a," 

"  b,  c,  d  do  not  fonn  an  Euler  circuit", 31 ); 
write_horz_str(-300,-150,"  because  some  of  the  edges  of  the  graph" 

"  are  inissing.",31); 

wait(""); 

ex_3_16_cont(); 

) 

static  void  ex_3_16_cont(void) 


/*  attach  [PageupJ  to  the  example_3_16  function  */ 
setonkey(0x4900,example_3_16,0); 

/*  attach  [Pagedown]  to  the  normal_exit  function  */ 
setonkey(0x5 100,nonnal_exit,0); 
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LINEW1DTH  =  3; 
cls(l); 

drawRect(-309,210,310,-200,ll); 
drawRect(-40, 160,40, 120,1 1); 
drawLLne(40, 1 20,30,80, 11);  /*  g  */ 

drawLine(40, 120, 120,80, 11);  /*  e  */ 

drawLine(30,80, 120,80, 11);  /*  f  */ 

aspect  =  0.5; 

LINEW1DTH  =  1; 
drawOval  (- 1 0,80,20, 1 1  .aspect); 
aspect  =  1 .0; 

fillOval(-40.160,3,16,aspect); 
fillOval(40, 1 60,3,1 6,aspect); 
fillOval(40, 1 20,3, 16,aspect); 
ftllOval(-40,120,3,16,aspect); 
ftllOval(30,80,3, 16, aspect); 
fillOval(  1 20,80,3, 16,aspect); 
fi!10val(-50,80,3, 16, aspect); 

write_horz_char(-50, 125,83,31);  /*  S  */ 

write_horz_char(30,75,84,3 1 );  /*  T  */ 

write_horz_char(50, 130,85,31);  /*  U  */ 

write_horz_char( -50,1 70,86,31);  /*  V  */ 

write_horz_cliar(50, 1 70,87,3 1 );  /*  W  */ 

wiite_horz_char(  130,80,88,31);  /*  X  */ 

write_horz_char(-60,85,89,31);  /*  Y  */ 

write _horz_char(0, 175,97,31);  /*  a  */ 

write_horz_char(45, 150,98 ,31);  /*  b  */ 

write_horz_char(0,135,99,31 );  f*  c  */ 

write _horz_chai(-50, 145, 100,31);  /*  d  */ 

write_horz_char(75, 120,101,31);  /*  e  */ 

write _horz_chai(75,75,102, 31);  /*  f  */ 

write_horz_char(40, 105, 103,31);  /*  g  */ 

write_horz_char(- 10,97, 104,3 1 );  /*  h  */ 

write_.horz_char(- 10,57, 105,31);  /*  i  */ 

write_horz_str( -300,37,"  Since  edge  e  has  not  been  used  and  is" 

"  on  a  vertex  U  which  has  been  visited", 31 ); 
writejiorz_str(-300.17,"  we  start  with  U  and  the  edge  e.  Thus," 

"  we  assign  U  the  temporary  name  A.", 31 ); 
write_horz_str(-300,-3,"  Since  the  vertex  X  is  on  the  edge  e  and  X" 
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"  is  not  equal  to  A,  we  choose",31); 
write_horz_str(-300,-23,"  the  other  edge  f  on  X.  Next  we” 

"  arbitrarily  choose  the  edge  g,  returning", 3 1); 
write_horz_str(-300,-43,"  us  to  A.  Now  these  two  groups  of  edges" 

"  are  put  together  by  joining  them",31); 
write_horz_str(-300,-63,"  at  the  vertex  U  to  fonn  a,  b,  e,  f,  g," 

"  c,  d.  Note  how  the  edges  are",31); 
write_horz_str(-300,-83,"  put  together  so  that  a  path  with  no" 

"  repetitions  of  edges  is  formed.  Again”,31); 
write_horz_str(-300,-103,"  this  is  not  an  Euler  circuit.  The  process" 

"  is  now  started  again  with",31); 

write_horz_str(-300,-123,"  vertex  T  and  edge  h.  Then  the  edges  h" 

",  i  are  obtained  and  now  these  are",31); 
write_horz_str(-300,-143,"  joined  into  the  previously  chosen" 

"  edges  at  vertex  T  to  get  a,  b,  e",31); 
write_horz_str(-300,-163,"  f,  h,  i,  g,  c,  d  which  is  an  Euler  circuit", 31); 

wait(""); 

nonnal_exit(); 

) 

^* **********************************%**************************+********/ 
void  wait(char  title!]) 

I 

int  tab.width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxl  1)  II  (mode  ==  0x12)) 
line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title,WHITE,0); 
tab  =  (width  -  33  )/2; 
gotoxy(tab,line); 

writString("Fress  any  key  to  continue  WHrrE.O); 
if( waitkey(  )==ESC )  confirm_graph_exit(); 
cls(0); 
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/*********************************************  ********* *****************^ 


static  void  confimi_graph_exit(void) 

I 

struct  _onkey_t  *kbiist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_hoiz_str(-300, -210, "Quit  example,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  V)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’>  II  (ch  =  *N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  "  ,31); 


} 

switch  (ch)  { 

case  ’y’:  normal_exit(); 
break; 

case  ’Y’:  normal_exit(); 
break; 


case  ’n’:write_horz_str(-300,-210,"  ”,31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 


default :  break; 

I 

if(_niouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


I 
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!+ ****** **************** ************ ********* ******** ***+****Jtr*******:Mrity 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

f*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


/***********************************************************************/ 


static  void  normal_exit(void) 

( 

setMode(3); 

videoinit(); 

srestore(savescm); 

gotoxy  _(cro  w  ,ccol ); 

if(_mouse)  mshidecur(); 

showcui'O; 

exit(0); 
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/*  PROGRAM  :  ex3_17.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


//***  +  **  +  ************  +  ,f.t<**  +  jf<**;4t******4<*:4<***  +  j(<,)<J)I*+,,)<)(<1(<j)<,(,**,(<  +  +: 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

ft********************************************************/ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 
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FUNCTION  DEFINITIONS 

ft******************************* ***%*************/ 


void  wait(char  title[]); 
void  e  .  unple_3_17(void); 
void  confirm_graph_exit(void); 
void  normaI_exit(void); 


MAIN  PROGRAM 


♦Jd***********************************************^ 


main() 

I 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 


setMode(0xl2); 

cls(l); 

if  (adapt  ==  ’E’) 

( 

setMode(16); 
cls(l ); 

} 

if  (adapt  ==  ’C’) 


setMode(4); 

setCGAPalette(O); 

cls(l); 

I 

exainple_3_17(); 

setMode(3); 
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/ft**********************************************************************/ 

static  void  example_3_17(void) 

I 


LINEWIDTH  =  3; 
cis(l); 

drawRect(-309,2 10,3 10,-200,1 1 ); 
write_horz_str(-300,160,"  For  the  multigrapli  in  the" 

"  figure  (a)  an  edge  d  is  added  between",31); 
write_horz_str(-300,140,"  the  two  vertices  U  and  V  of  odd  degree." 

"  This  results  in  the",31); 

write_horz_str(-300,120,"  multigraph  in  Figure  (b)  for  which  an" 

"  Euler  circuit,  say  e,  a,  d,",31); 

write_horz_str(-300,100,"  c,  b  can  be  found  by  using  the  Euler" 

"  circuit  algorithm.  Deleting  the",31 ); 
write_horz_str(-300,80,"  edge  e  from  this  circuit  gives  the  Euler" 

"  path  a,  d,  c,  b  between",31); 

write_horz_str(-300,60,"  U  and  V  for  the  multigraph  in  Figure  (a).",31); 


drawLine(-l  10,20,-10,20,11);  /*  a  */ 
drawLine(- 10,20,-60,-70, 11);  /*  d  */ 
drawLine(-60, -70,- 110,20,11);  /*  c  */ 


drawLine(40,20, 140,20, 1 1);  /*  a  */ 

drawLine(40,20,90,-70,ll);  /*  d  */ 

drawLine(90,-70, 140,20, 11);  /*  c  */ 


aspect  =  .40; 

LINEWIDTH  =  1; 

drawArc(-60, 20, 20, 1800, 0,11, aspect); 
drawArc(90,20,20, 1 800,0, 1 1  .aspect); 
draw  Arc(90, 20, 20, 0,1 800, 7, aspect); 
aspect  =  1 .0; 

fillOval(-l  10, 20, 3, 16, aspect); 
fillOval(- 1 0,20,3 , 1 6, aspect ) ; 
fillOval(-60,-70,3, 16,  aspect); 
fillOval(40.20,3,16,aspect); 
fillOval(  1 40.20,3 , 1 6,  aspect ); 
fi!10val(90.-70,3, 1 6, aspect ); 


writejioiz_chai(-60, 35,97, 31);  /*  a  */ 
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write_horz_char(-60,-5,98,31);  /*  b  */ 

write_horz_char(-95,-20,99,31);  /*  c  */ 

write_horz_char(-30, -20, 100,31);  /*  d  */ 

write_horz_char(-120,20,85,31);  /*  U  */ 

write_horz_char(-5 ,20,86,31);  /*  V  */ 

write_horz_char(-60,-75,65,31);  /*  A  */ 

write_horz_char(90,35,97,31);  /*  a  */ 

write_horz_char(90,-5,98,31);  /*  b  */ 

write_horz_char(55,-20,99,31);  /*  c  */ 

write_horz_char(120, -20, 100,31);  /*  d  */ 

write_horz_char(30,20,85,31);  /*  U  */ 

write_horz_char(  145,20,86,31);  /*  V  */ 
write_horz_char(90,-75,65,31);  /*  A  */ 
write_horz_char(90,55,101,31 );  /*  e  */ 

write_horz_str(-60,-85,"(a)",i  1 ); 
write_horz_slr(90,-85,"(b)",ll); 
wait("Example  3.17"); 


I************************************************** *********+**+*+*+****  I 

void  wait(char  title[]) 

( 

int  tab, width, line, mode; 

mode  =  getMode(&width); 

if  ((mode  ==  0x11)  II  (mode  ==  0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title, WHITE, 0); 
tab  =  (width  -  33  )/2; 
gotoxy(tab.line); 

writStrmg( "Press  any  key  to  continue  WHITE.0); 

getch(); 

cls(0); 
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static  void  coiifirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

kblist-chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  =  ’y’)  II  (ch  —  ’n’)  II  (ch  ==  ’Y’>  II  (ch  =  ’N’»)  ( 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getch  (); 

} 

switch  (ch )  ( 

case  ’y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  *Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’n’; 

break; 

case  ’N’: 

break; 

default  ;  break; 

I 

if(_:nouse&MS_CURS )  msshowcur( ); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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/***********************************************************************/ 


/*  this  function  handles  nonnal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


<*+*******+/ 


static  void  normal_exit(void) 

I 


srestore(savescm); 
gotoxy_(crow  ,ccol ) ; 
if(_mouse)  mshidecur(); 
showcurf); 
exit(0); 

) 
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/*  PROGRAM  :  ex3_18.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#inc!ude  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
**%*%****$%*%************%******************************/ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=I ; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 
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y************************************ **. It  *********** 

FUNCTION  DEFINITIONS 

*********  +  ********)(<  +  +  *******j(ci(t********4'4'*J|<*******J|<^ 

void  wait(char  titleQ); 
voidexample_3_18  (void); 
void  confLrm_graph_exit(void); 
void  normaI_exit(void ); 


^i************************************************ 

MAIN  PROGRAM 

9fc3fr3#c3fra4e3fe3f<34e3|e3|(atra4e3|e3|e3|c^e34e99c3|c3f<^c3(c%94<3tc3|c3tr34<3|«3|c3f(4(4e3#e3#e34c3#cafc4c3#cafea|t3#e9f(34e3fe3f(3f(3k 


mai»() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 


setMode(4); 

setCGAPalette(O); 

cls(l); 

1 

example  3  1 8( ); 
setMode(3); 


) 
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y**  +  **%!(l**!(<**j(c***l(<***%****l(<******  +  ^C^*ltt******4<**+**%***************Jtl  +  ****y 

static  void  example_3_18  (void) 

( 

LINEW1DTH  =  3; 
cls(l ); 

drawRect(-309,210,3 10,-200,1 1); 
drawRect(-50,20,50,-80,3 1 ); 
drawLine(-50, 20,0,-30. 11);  /*  c  */ 
drawLine(0,-30,50,-30,31);  /*  d  */ 
drawLine(50,-30,50,-80,l  1);  /*  f  */ 
drawLine(0, -30,50, -80,3 1 );  /*  g  */ 
aspect  =  1 .0: 

fiI10val(-50,20,3 , 1 6,aspect); 
fillOval(0,-30,3,16,aspect); 
fillOval(-50,-80,3,16,aspect); 
flllOval(50.-80,3 , 1 6,aspect); 
fillOval(50.20,3,16,aspect); 
fillOval(50.-30,3, 16, aspect); 

write_horz_char( -60,20,85,31);  /*  U  */ 

write_horz_char(55,20,86,31);  /*  V  */ 

write Jiorz_char( -60, -85,87 ,31);  /*  W  */ 

write J)orz_char(55,-25, 88,31 );  /*  X  */ 

write_hor.z_char(55,-85, 89,31 );  /*  Y  */ 

write_horz_char(0,- 15,90,31);  f*  Z  */ 

write _horz_Hiar(0, 40,97 ,31 );  /*  a  */ 

write_horz_cliar(55,0,98,31 );  /*  b  */ 

write_horz_char(-20,5 ,99,31 );  /*  c  */ 

write_hoiz_char(25,-15, 100,31 );  /*  d  */ 

write_horz_char(-60,-15,101,31);  /*  e  */ 

write jK>rz_char(0.-85. 102.31);  /*  f  */ 

write_horz_char( 5,-50, 1 03,3 1 );  /*  g  */ 

write_horz_char(55,-50. 104,31 );  /*  h  */ 

write_horz_str(-300,l  80,"  Suppose  the  graph  in  the  following" 

Figure  describes  a  system  of  airline", 31 ); 
write_horz_str(-300,160,"  routes  w'here  the  vertices  are  towns" 

"  arul  the  edges  tepresent  aiiline",31 ); 
write  horz  strt -300, 140,"  routes.  'ITie  vertex  U  is  the  home  base  lor" 

"  a  salesperson  who  must", 31 ); 
writc  horz  strt -300,1  20,"  periodically  visit  all  of  the" 


"  other  cities.  To  be  economical  the  salesperson”,31); 
write_horz_str(-300,100,"  wants  a  path  that  starts  at  U,  ends  at" 

"  U,  and  visits  each  of  the  other",31); 
write_horz_str(-300,80,"  venices  exactly  once.  A  brief  examination” 

”  of  the  graph  shows  that  the”,3i); 
write_horz_str(-300,60,"  edges  a,  b,  d,  g,  f,  e  form  a" 

"  Hamiltonian  cycle.",31); 

wait("Example  3.18"); 

> 

^********** ************************************************************/ 
void  wait(char  titlef] ) 

( 

int  tab, width.line, mode; 
mode  =  gctMode(&width); 
if  ((mode  ==  Ox  1 1 )  II  (mode  ==  Ox  1 2)) 
line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen( title ))/2 ; 
gotoxy(tab.O); 

writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writStringl” Press  any  key  to  continue  ...",  WHITE, 0); 

getch(); 

cls(0); 

) 

/★♦♦★♦★♦♦if************************************************************* 

static  void  confirm_graph_exit(void) 

( 

struct  onkey  t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS )  mshidecur( ); 

write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getcli  (), 

while  (!((ch  ==  'y')  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N')))  | 
write_horz_str(-80,190,’  Please  type  y  or  n",31 ); 


268 


ch  =  getch  0; 

} 

switch  (ch)  { 

case  ’y':  setMode(3); 
videoinit(); 
normul_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’: 

break; 

case  ’N': 

break: 

default :  break; 

> 

if(jrnouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/I******************************************************************** 


***/ 


/*  this  function  handles  nonnal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  normal  exit( void) 


srestore(savescm); 
gotoxy_(crow,ccol ); 
if(_mouse)  mshidecurt  ); 
showcurO; 
exit(O); 
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/♦PROGRAM  :  ex3_19.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 
REVISED  :  Mar.  5, 1990 

DESCRIPTION  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  EBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.li" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

# include  "cxlwin.h" 


^fr*******************************************************,!, 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

int  color  =  2; 

int  LLNEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 
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FUNCTION  DEFINITIONS 

’fr************************************************/ 


void  wait(char  title(J); 
void  example_3_19  (void); 
void  confirm_graph_exit(void); 
void  normaI_exit(void); 


^t************************************************ 

MAIN  PROGRAM 


main() 

I 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 


if  (adapt  ==  ’E’) 

( 

setMode(16); 
cls(l ); 

) 

if  (adapt  ==  ’C’) 

( 

setMode(4); 
setCGAPalette(O); 
cls(l ); 

I 

exajnple_3_19(); 

setMode(3); 
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/************ *********** ***************************************** *******/ 
static  void  example_3_19(void) 

I 


LINE  WIDTH  =  3; 

cls(l); 

drawRect(-309,210,3 10,-200,1 1); 

write  Jiorz_str(-300, 190,"  Theorem  3.5  can  be  used  to  say  that  the" 

"  graph  in  Fig. (a)  has  a  Hamiltonian"  ,31); 
write__horz_str(-300,175,"  cycle  because  there  are  6  vertices,  each" 

"  with  degree  3.  However  even", 3  J ); 
write  _horz_str(-300, 160,"  though  the  theorem  says  there  is  a" 

"  Hamiltonian  cycle,  it  does  not  tell", 31 ); 
write_horz_str(-300,145,"  us  how  to  find  one.  Fortunately  in  this  case" 

"  one  can  be  found  by  a  little”,31); 
write_horz_str(-300,130,"  bit  of  trial  and  error." ,31 ); 
write_horz_str(-300,115,"  On  the  other  hand  the  graph  in  Figure  (b)" 

"  does  not  have  a  Hamiltonian  cycle”,31); 
write_horz_str(-300,100,"  because  no  matter  where  we  start  we" 

"  end  up  on  the  left  side  needing  to  go",31); 
write_horz_str(-300,85,"  to  a  vertex  on  the  left  side,  and  there  are" 

"  no  edges  connecting  the  vertices",31); 
write_horz_str(-300,70,"  on  that  side.  Note  that  tliis  graph  does" 

"  not  satisfy  the  conditions", 31 ); 
write_h°rz_str(-300,55,"  of  theorem  3.5  because  it  has  vertices" 

"  of  degree  2<(5/2).  However  the  graph", 3 1 ); 
write Jiorz_str(-300, 40,"  in  Fig.(c)  also  has  5  vertices,  each  with" 

"  degree  2;  Yet  it  contains  a", 31 ); 

write_horz_str( -300,25,"  Hamiltonian  cycle.  Thus,  when  some  vertices" 

"  have  degree  less  than  n/2,",31 ); 

write_horz_str(-300,10,"  it  is  not  possible  to  conclude  anything  in" 

"  general  about  the  existence  or", 3 1 ); 
write_horz_str(-300,-5,"  nonexistence  of  a  Hamiltonian  cycle.",31); 


drawLine(-200, -45,- 100,-45,3 1 ); 
drawLine( -200, -45,  -100,-95,1 1 ); 
drawLine(-200,-45, -100,-145, 31); 

drawLinet- 1 00,-45,-200,-95,3 1 ); 
drawLine(-100, -45, -200, -145,1 1 ); 

drawLine(-200,-95,- 100,-95,3 1 ); 
drawLine(  -200,-95 ,- 1 00,- 1 45 , 1 1 ); 
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drawLiiie(- 1 00,-95 ,-200,- 1 45 ,3 1 ); 
drawLiiie(-7O0,-145,-100,-145,3l); 
write_horz_str(-l50,-165,"(a)",31); 
aspect  =  1.0; 

fillOval( -200,-45 ,3, 16, aspect); 
fillOval(-100,-45,3,16,aspect); 
fillOval(- 100,-95,3, 16, aspect); 
fillOval(-100,-145,3,16,aspect); 
fillOval(-200,- 145,3, 16,  aspect); 
fillOval(-200, -95,3, 16, aspect); 


drawLine(-50, -45 ,50,-70,1 1); 
drawLinel  -50,-45 ,50,- 1 20, 1 1 ); 

drawLine(-50.-95 ,50,-70,1 1 ); 
drawLine(-50,-95 .50,-120,1 1  >; 

drawLine(-50,-145,50,-120,l  1); 
drawLine(-50,- 145 ,50,-70, 11); 
fillOval(-50.-45,3,16,aspect); 
fU10val(50.-70,3,16,aspect); 
fillOval(50,- 1 20,3 , 1 6, aspect ); 
fillOval(-50,-95,3, 16, aspect); 
fillOval(-50,-145,3,16,aspect); 
writejiorz_str(0,-165,"(b)",31); 

drawLine(  100.-95.150,-45,1 1 ); 
drawLine(  150,-45,200,-95, 11); 
draw  Line(  200,-95 ,200,- 145,11); 
drawLine(200,- 1 45 , 1 00,- 1 45, 1 1 ); 
drawLine(  1 00,- 1 45, 1 00,-95, 1 1 ); 
fillOval(  100,-95,3, 16, aspect); 
fill Oval  (150.-45,3,1 6,aspect ); 
ftllOval(200.-95,3,16,aspect); 
fillOval(200,- 145,3, 16, aspect); 
fil'Oval(  100.- 145,3, 16, aspect); 
write_horz_str(  145,-1 65, "(c  )",3 1 ); 
waitO'Exainple  3.19"); 
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y* ************************************************************** ********/ 


void  wait(char  title[]) 

I 

int  tab,width,line,mode; 

mode  =  getMode(&width); 

if  ((mode  =  0x11)1!  (mode  ==  0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 

writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writString("Press  any  key  to  continue  WHITE,0); 

getch(); 

cls(0); 


j*  ******************** 


************************************************** y 


static  void  confum_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  ==  y )  I:  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  ( 
write_iiorz_str(-80,190,"  Please  type  y  or  n”,31); 
ch  =  getch  (); 


switch  (ch)  | 

case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
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videoinit(); 

normal_exit(); 

break; 

case  ’n’: 

break; 

case  ’N’: 

break; 

default  :  break; 

I 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


> 


/*  this  function  handles  normal  termination.  The  original  screen  ami  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/***********************************************************************/ 

static  void  normal_exit(void) 

I 

srestore(savescm ); 
gotoxy_(crow,ccol ); 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 
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/♦PROGRAM  :ex3_39.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an 
Circuits". 


example  about  the  "Paths  and 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*1 


#include  <stdio.h> 
#include  <math.h> 
#include  <dos.h> 
#include  <conio.h> 
#include  "gtools.h" 
#include  "gdraws.h" 
#include  "colors. h" 
#include  "cxldef.li" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#include  "cxlwin.h" 


I******************************************************** 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


**l(<*lM<*il*l(<%****************j(<!(<*!(C****lt<*%  +  **!(<**!(<*>ttj|<****s(<5(t*^ 


char  adapt; 

int  color  =  2; 

int  LINEW1DTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescrn,crow,ccol; 


276 


y*  ************************************************ 

FUNCTION  DEFINITIONS 

************************************************y 

void  wait(char  titleQ); 

static  void  example_3_39  (void); 

static  void  contl  (void); 

static  void  cont2  (void); 

static  void  cont3  (void); 

static  void  cont4  (void); 

static  void  confirm_graph_exit(void); 

static  void  nomial_exit(void); 

y*  ************************************************* 

MAIN  PROGRAM 


main() 


*********************** 


**************************y 


ds  ( I ); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 
cls(l ); 

) 

if  (adapt  ==  ’E') 

( 

setMode(16); 
cls(  1 ); 

) 

if  (adapt  ==  ’C’) 

( 

setMode(4); 
setCGAPalette(O); 
cls(l );) 

exainple_3_39(); 

setMode(3): 
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y***  *********  %  a********************  ****:(<**  ********  ************  ***%******y 

static  void  exaniple_3_39(void) 

{ 


y*****  ****************** ******** ****************+***********************/ 

/*  attach  [Pageup]  to  the  example_3_39  function  */ 
setonkey(0x4900,example_3_39,0); 


y**********  ***********************  *******j(t*******************i|i***:(<:(<*:M<*%y 

/*  attach  [Pagedown]  to  the  contl  function  */ 
setonkey(0x5 100,contl,0); 


y***********************************************************************y 

LINEW1DTH  =  3; 


cls(I ); 

drawRect(-309,2 10,3 10,-200, 11); 


drawLine(- 100,-80, -150,-110,1 1);  /*  AS  */ 

drawLine(-150, -110,-100,-140,11);  /*  SB  */ 

drawLine(- 100,- 140,-50,-1 10,1 1 );  /*  BC  */ 

drawLine( -50,-1 10,-100,-80,11);  /*  CA  */ 

drawLine(- 100,-80,0,-80, 11);  f*  AF  */ 

drawLine(-50,-l  10,-50,-80,1 1 );  /*  CE  */ 

drawLine(0,-80,0,- 1 1 0, 1 1 );  /*  FH  */ 

drawLine(-50,-l  10,50,-1 10,11);  /*  CT  */ 

drawLine(50,-l  10.80,-90,11);  /*TI  */ 

drawLtnef  50,-1 10.50,-140,1 1 );  /*  TJ  */ 

drawLine(50,-140, 0,-160,1 1);  /*  JG  */ 

drawLine(0,- 160,-50,- 160,1 1 );  /*  GD  */ 

drawLine(-50,- 160,- 100,-1 40,1 1 );  /*  DB  */ 


aspect  =  1 .0; 

fillOvaU  - 1 00.-80.3, 16.aspect ); 
f  illOvall  - 1 50.- 1 10, 3, 16, aspect); 
fillOvaU  - 1 00,  -1 40,3,  J  6, aspect ); 
fiilOval!  50  - MO.3,1 6,aspect ); 
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fillOval(80.-90.3,16,aspect); 
fillOval(0, -80,3, 16, aspect); 
fillOvaK  50,-80,3, 16, aspect); 
fillOval(0,-l  10,3, 16, aspect); 
fillOval(50,-l  10, 3, 16, aspect); 
fillOval(50.-140,3,16,aspect); 
fillO v  al(0,- 1 60 ,3 , 1 6 , aspect); 
fi!10val(-50,-160,3, 16, aspect); 


write__hor7_char(-l 00,-65,65,3 1 );  /*  A  */ 

write_horz_char(-100,-145,66,31);  /*  B  */ 

write_horz_char(-45,-95,67,31);  /*  C  */ 

write_horz_char(-50,-165,68,31);  /*  D  */ 

write_horz_char(-50,-65,69,31);  /*  E  */ 

write_horz_char(0,-65,70,31);  /*  F  */ 

write_horz_char(0,- 165,71,31);  /*  G  */ 

write_horz_char(5, -95 ,72,31 );  /*  H  */ 

write_horz_char(80,-70,73,3 1 );  /*  I  */ 

write_horz_char(55, -145,74, 31 );  /*  J  */ 

write _horz_char(-160, -110,83,31);  /*  S  */ 

write _horz_chai(55,-l  10,84,31);  /*  T  */ 

write_horz_str(-300,180,"For  the  graph  in  the  following  Figure" 

”  there  is  more  thatt  one  path  from", 3 1 ); 
write_horz_str(-300,160,"S  to  T.  One  path  is  S,  A,  C,  B,  D,  G,  J," 

"  T  arid  another  is  S,  A,  E,  F,  H,  T.",31 ); 
write_horz_sti(-300,140,"We  will  use  the  breadth-first  search" 

"  algorithm  to  find  the  distance", 31 ); 
writejiorz_str(-300,120,"and  a  path  of  minimal  length  between" 

"Sand  T.",31 ); 

wait("”); 

contl(); 
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I*  ******* ***************************************************************y> 

static  void  contl (void) 

{ 


r**************************************************************~********^/ 

/*  attach  [Pageup |  to  the  example_3_39  function  */ 
setonkey(0x4900,exainple_3_39,0); 

I***********************************************************************/ 

/*  attach  [Pagedown]  to  the  cont2  function  */ 
setonkey(0x5100,cont2,0); 

LINE  WIDTH  =  3; 

cls(  1 ); 

drawRect(-309.210,3 10,-200,1 1 ); 


drawLine(- 100,-80,-150,-1 10,1 1); 
drawLine(- 150.-1 10.-100,-140,11); 
drawLinei- 100,-1 40.-50,- 1 10,11 ); 
drawLine( -50,-1 10,-100,-80,1 1 ); 
drawLine(- 1 00,-80.-00,-80, 1 1 ); 
drawLinel  -50.- 1 1 0, -50.-80, 1 1 ); 
drawLine(0,-80,0,-l  10,1 1 ); 
drawLine(-50.-l  10,50,-1 10,1 1 ); 
drawLine(50,-l  10,80.-90, 1 1 ); 
drawLine(50,-1 10,50,- 1 40, 1 1 ); 
drawLine(50,- 140,0,- 160, 1 1 ); 
drawLine(0.- 160,-50,- 160,1 1 ); 
drawLine( -50, -160, -100, -140,1 1 ); 

aspect  =  1 .0: 

fifIOval(- 1 00,-80.3, 1 6,  aspect ); 
fillOvaK- 1 50,-  i  10,3,l6,aspect); 
fillOval(- 1 00,- 1 40,3 , 1 6, aspect ); 
fillOvaK  -50.- 1 10.3, 1 6, aspect ); 


/*  AS  */ 
/*  SB  */ 
/*  BC  */ 
/*  CA  */ 
/*  AF  */ 
/*  CE  */ 
/*  FH  */ 
/*  CT  */ 
/*  TI  */ 
/*  TJ  */ 
/*  JG  */ 
/*  GD  */ 
/*  DB  */ 
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1 


fillO  val(80,-90,3 , 1 6, aspect); 
fillOval(0.-80,3, 16,  aspect); 
fillOval(-50,-80,3,16,aspect); 
fillOval(0,-l  10, 3, 16, aspect); 
fillOval(50,-l  10,3,16,aspect); 
fillOval(50,-140,3,16,aspect); 
fillOval(0,-160,3,16,aspect); 
fillOval(-50.-160,3,16,aspect); 

write_horz_char(-100, -65,65, 31 );  /*  A  */ 

write_horz_char(- 100,- 145 ,66,31);  /*  B  */ 
write_horz_char(-45,-95,67,3 1 );  /*  C  */ 

write_horz_char(-50,- 165 ,68,31);  /*  D  */ 

write_horz_char(-50,-65,69,31);  /*  E  */ 

write_horz_char(0,-65,70,31);  /*  F  */ 

write_horz_char(0,-165,71,31);  /*  G  */ 

wriieJiot7;_char(5, -95 ,72,31);  /*  H  */ 

write_horz_char(80,-70,73,31);  /*  I  */ 

write_horz_char(55, -145,74, 31 );  /*  J  */ 

write_horz_char(-160, -110,83, 31);  /*  S  */ 

v.'rite_horz_cliar(55,-l  10,84,31 );  /*  T  */ 

wrile_horz_str(-300, 180, "First  label  S  with  0,  set  L  =  { S ) ,  and" 

"  let  S  have  no  predecessor.  Since",31 ); 
write_horz_str(-3C0,160,"T  is  not  in  L,  we  look  at  the  vertices" 

"  adjacent  to  S,  which  are  A  and  B.",31 ); 
write_horz_str(-300,140,"To  them  the  label  1  is  assigned,  and" 

"  L  then  becomes  (S,  A,  B }.  A  and  B",31); 
write_horz_str(-300,120,”are  given  the  predecessor  S.",31); 
write_horz_str(- 1 05  ,-5  3,"  1  (S)"  ,28 ); 
write_horz_str(- 1 05,- 1 57,"  1(S  )",28 ); 
write  Jiorz_str(-180,-98,”0(-)", 28); 

wait(""); 
cont2( ); 
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static  void  cont2(void) 

I 


/*  attach  [Pageup]  to  the  conti  function  */ 
setonkey(0x4900,cont  1,0); 


/ft****************#*****************************************************/ 

/*  attach  [Pagedown]  to  the  cont3  function  */ 
setonkey(0x5 100,cont3,0); 


/***********************************************************************/ 
LINEWIDTH  =  3; 
cls(l); 

drawRect(-309,2 10,31 0,-200, 11); 


drawLine(- 100,-80,- 150,- 11 0,11);  /*  AS  */ 

drawLine(- 150,- 110,-100, -140, 11);  /*  SB  */ 

drawLine(- 100,- 140,-50,-1 10,1 1);  /*  BC  */ 

drawLine(-50,-l  10,-100,-80,1 1);  /*  CA  */ 

drawLine(- 100 ,-80,-00,-80,1 1);  /*  AF  */ 

drawLine(-50,- 110,-50,-80,11);  /*  CE  */ 

drawLine(0,-80,0,- 110,11);  /*  FH  */ 

drawLine(-50,-l  10,50,-1 10,1 1);  /*  CT  */ 

drawLine(50,-l  10,80,-90,1 1 );  /*  TI  */ 

drawLine(50,-l  10,50,-140,11);  /*  TJ  */ 

drawLine(50,- 140,0,- 160,1 1 );  /*  JG  */ 

drawLine(0, -160, -50, -160,1 1 );  /*  GD  */ 

drawLine(-50,-160,-100,-140,l  1);  /*  DB  */ 


aspect  =  1.0; 

fillOval(- 1 00,-80,3, 1 6, aspect); 
fiUOval(- 150,-1 10, 3, 16,  aspect); 
fillOvaK- 100,- 140,3, 16, aspect); 
fillOval(-50.-l  10,3, 16, aspect); 
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fillOval(80.-90,3,16,aspect); 
fiUOval(0, -80,3, 16, aspect); 
fi!10val(-50.-80,3, 16, aspect); 
fillOval(0,-l  10, 3, 16, aspect); 
fillOval(50,-l  10, 3, 16, aspect); 
fil!0val(50,-140,3,16.aspect); 
fillOval(0,- 1 60,3 , 1 6, aspect); 
fillOval(-50,- 160,3, 16,  aspect); 

write  Jiorz_char(- 1 00,-65 ,65 ,31);  /*  A  */ 

write_horc_char(-100,-145,66,3l);  /*  g  */ 

write_horz_char(-45 ,-95 ,67 ,31);  /*  C  */ 

write_hor7._chf*r(-50,-1 65,68,31);  /*  D  */ 

write_horz_char(-50,-65,69,31);  /*  E  */ 

write__horz_char(0,-65,70,31);  /*  F  */ 

write  _horz_char(0,- 165, 7 1,31);  /*  G  */ 

writeJiorz_cliai(5,-95,72,31);  /*  H  */ 

write_horz_char(80,-70,73,3l);  /*  I  */ 

write_horz_char(55, -145,74,31);  /*  J  */ 

write_hor2_char(- 160,-1 10,83,31);  /*  S  */ 

write_horz_char(55,-l  10,84,31 );  /*  T  */ 

write_horz_str(-300, 180, "Again  since  T  is  not  in  L,  we  find  the" 

"  unlabeled  vertices  adjacent  to", 3 1 ); 
write_horz_str(-300, 160, "vertices  with  label  1.  These  are  the" 

"  vertices  E,  C,  and  D,  which  are", 31 ); 
write_horz_str(-300,140,"then  assigned  the  label  2.  Now  L  =  {" 

"S,  A,  B,  E,  C,  D)  Since  E  and  C  are",31); 
write_horc_str(-300, 120, "adjacent  to  A  which  has  label  1,  E  and" 

"  C  each  have  predecessor  A,  and".3l ); 
writejiorz_str(-300,100,"similaily,  D  has  predecessor  B".  31 ); 

write_horz_str(-45,-83,"2(A)",28); 
write_horz_str(-55,-  177,"2(B  )",28 ); 
write_horz_str(-55,-53,"2(A)",28); 


write_horz_str(-  105,-53,"1(S)",28); 
write_horz_str(-105,-157,"l(S)",28); 
write_horz_str(- 1 80,-98 ,"0(-)"  ,28 ); 

waitf"); 

cont3(); 


} 

^************************************************+++*+*+**>t>***********>t>i<y 

static  void  cont3(void) 

{ 

/*  attach  [Pageup]  to  the  cont2  function  */ 
setonkey(0x4900,cont2,0); 


/*  attach  [Pagedown]  to  the  cont4  function  */ 
setonkey(0x5 100,cont4,0); 


j*  *  ###*  *  ***  #**  *********  ***  ****  *  **  * 


**** **# 


i *******************************/ 


LINEWIDTH  =  3; 


cls(i); 

drawRect(-309, 210, 3 10,-200,1 1 ); 
drawLine(- 1 00,-80,- 150, -110, 11);  /*  AS  */ 

drawLine(- 150,-1 10,-100,-140,11);  /*  SB  */ 

drawLine(-100, -140,-50, -110,11);  /*  BC  */ 

drawLine(-50,-l  10,-100,-80, 11);  /*  CA  */ 

drawLine(-100, -80,-00, -80,1 1);  /*  AF  */ 

drawLine(-50,-l  10,-50,-80,1 1);  /*  CE  */ 

drawLine(0,-80,0,-l  10,1 1 );  /*  FH  */ 

drawLine(-50,-l  10,50,-1 10,11);  /*CT*/ 

drawLine(50,-l  10,80,-90,1 1);  /*  TI  */ 

drawLine(50,-l  10,50,  140, 1 1 );  /*  TJ  */ 

drawLine(50, -140, 0,-160,1 1 );  /*  JG  */ 

drawLine(0,- 160, -50,- 160,1 1 );  /*  GD  */ 

drawLine(-50  - 160,- 100  -1 40, 11);  /*  DB  */ 
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aspect  =  1.0; 

fillOval(- 1 00,-80,3, 1 6,aspect); 
fillOval(- 150,-1 10,3,16,aspect); 
fillOval(- 1 00,- 140,3 , 1 6, aspect ); 
fillOval(-50,-l  10, 3, 16, aspect); 
fillOval(80,-90,3,16,aspect); 
fil!0val(0,-80,3,16,aspect); 
fillOval(-50,-80, 3,16, aspect); 
ftllOval(0.-l  10, 3, 16, aspect); 
fillOval(50.-l  10,3.16.aspect); 
fillOval(50,-140,3,16,aspect); 
fillOval(0,- 1 60.3 , 1 6, aspect); 
fillOval(-50.- 160,3, 16, aspect); 

write_horz_char(-100,-65,65,31);  /*  A  */ 

write  Jiorz_char(- 100,- 145 ,66,31);  /*  B  */ 

write_horz_^ltai  (-45 ,-95 ,67 ,31);  I*  C  */ 

\\Tite_horz_char(-50,-165,68,31);  /*  D  */ 

write_horz_char(-50,-65,69,31);  /*  E  */ 

write_horz_char(0, -65 ,70,31);  /*  F  */ 

write_horz_char(0,-165,71,31);  /*  G  */ 

write_horz_char(5,-95,72,31);  /*  H  */ 

write_horz_char(80, -70, 73,31 );  /*  I  */ 

write_horz_char(55,-145,74,31);  /*  J  */ 

write_horz_char(- 160,-1 10,83,31);  /*  S  */ 

write_horz_char(55,-l  10,84,3 1 );  /*  T  */ 


write_horz_str(-300, 180, "Again  because  T  is  not  in  L,  the" 

"  unlabeled  vertices  adjacent  to  those",31); 
write_horz_str(-300, 160, "with  label  2  are  detennined.  These" 

"  are  F,  H,  and  G,  and  they  are", 31 ); 
writejiorz_str(-300, 140, "assigned  the  label  3  and  included  in  L" 

”.  So  L  is  now  { S,  A,  B,  E,  C,  D,  F,”,3 1 ); 
write_horz_str('300,120,"G,  H}.  Because  F  is  adjacent  to  E  with" 

"  label  2,  F  has  predecessor  E.",31 ); 
write_horz  st>(  300,100,"Siiiiutui> ,  H  has  pretlecessci  C,  and  G 
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"  has  predecessor  D.",31); 
write_horz_str(-45,-83,"2(A)",28); 
write_horz_str(-5  5,  - 1 77,"2(B  )",28); 
write_horz_str(-55  ,-53 , "2(A)"  ,28); 

write_horz_str(- 105  ,-53 ,"  1  (S )"  ,28 ); 
write_horz_str(- 1 05 ,- 1 57 ,"  1  (S )"  ,28 ); 
write_horz_str(-180,-98,"0(-)",28); 

write_horz_str(-5,-53,"3(E)",28); 

write_horz_str(-5,-177,"3(D)",28); 

write_horz_str(5,-83,"3(C)",28); 

wait(""); 

conl4(); 

) 

y* **********************************************************************/ 
static  void  cont4(void) 

{ 

y**** ****************************************************** *************/ 

/*  attach  [Pageup]  to  the  cont3  function  */ 
setonkey  (0x4900, cont3 ,0); 


^* **********************************************************************/ 
/*  attach  [Pagedown]  to  the  normal_exit  function  */ 
setonkey  (0x5 1 00,nomial_exit,0 ); 


'* ********************************************************************** 
LINE  WIDTH  =  3; 

cls(l); 

drawRect(-309,2 10,3 10,-200, 1 1 ); 
drawLine(-100,-80,-150,-l  10,11);  /*  AS  */ 

drawLine(- 150,-1 10,-100,-140,11);  /*  SB  */ 
drawLine(-100, -140, -50, -110,11);  /*  BC  */ 

ilrawLinet-*iO.- 1 10,-100,-80,1 1 );  /*  CA  */ 
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<lrawLine(- 100,-80,-00,-80, 11);  /*  AF  */ 

drawLine(-50,-l  10,-50,-80,1 1);  /*  CE  */ 

drawLine(0.-80,0,- 1 10, 1 1 );  /*  FH  */ 

<lrawLine(-50,- 1 10,50,- 1 10, 1 1);  /*  CT  */ 

drawLiiie(50,-l  10,80,-90,1 1);  /*  TI  */ 

drawLine(50, -110,50,-140,11);  /*  TJ  */ 

drawL  ine(50, -140, 0,-160. 11);  /*  JG  */ 

drawLine(0.-160,-50,-160,ll);  /*  GD  */ 

drawLine(-50, -160, -100, -140,1 1);  /*  DB  */ 

aspect  =  1 .0; 

fill0val(-100,-80,3,16,aspect); 
fillOval(- 150,-1 10,3, 16, aspect); 
fillOval(- 100,- 140,3, 16, aspect); 
fillOval(-50,-l  10,3, 16, aspect); 
fillOval(80,-90,3, 16, aspect); 
fillOval(0,-80,3, 16, aspect); 
fillOvaK-50,-80,3,16,aspect); 
fiUOval(0,-l  10,3, 16, aspect); 
fillOvaK50,-l  1 0,3, 16, aspect); 
fillOval(50,-140,3,l6,aspect); 
fillOvaH0,-160,3,16,aspect); 
filJOval(-50,- 160,3, 16, aspect); 

write _horz_char(- 100,-65, 65 ,31);  /*  A  */ 

write_horz_char(- 100,- 145 ,66,31);  /*  B  */ 

write_hoiz_char(-45,-95,67,3 1 );  /*  C  */ 

write Jiorz_char(-50, -165,68,31);  /*  D  */ 

write_horz_char(-50,-65,69,3 1 );  f*  E  */ 

write _horz_char(0, -65 ,70,3 1 );  /*  F  */ 

write_horz_char(0,- 1 65 ,7 1 ,3 1 );  /*  G  */ 

write_horz_char(5, -95 ,72,31);  /*  H  */ 

write Jiorz.  char(80,-70,73,3 1 );  /*  I  */ 

write _horz_char(55,-145,74,3 1 );  /*  J  */ 

write Jiorz_char(-160,- -110,83,31);  /*  S  +/ 

write_horz_char(55. -110,84,31);  /*  T  */ 


write_horz_str(-300, 180," Again  T  is  not  in  L,  and  so  the" 

"  unlabeled  vertices  adjacent  to  those  with",31); 
write_liorz_str(-300, 160, "label  3  are  located.  These" 

"  are  J  and  T,  which  are  then  assigned  the", 3 1 ); 
write_horz_str(-300,140,"label  4.  Finally,  the" 

"  predecessor  of  T  is  H  and  that  of  J  is  G.",31); 
write_horz_str(-300,120,"  Since  the  label  4  has  been  assigned" 

"  to  T,  the  distance  from  S  to  T  is  4.", 3 1 ); 
write_horz_str(-300,100,"By  looking  at  the  predecessors,  we  find" 

"  that  S,  A,  C,  H,  T  is  a  shortest",31); 
write_horz_str(-300,80,"path  from  S  to  T.",31); 

write_horz_str(-45,-8  3  ,"2(  A)"  ,28 ); 

write_horz_str(-55,-177,"2(B)",28); 

write_horz_str(-55,-53,"2(A)",28); 

write_horz_str(-105,-53,"l(S)",28); 
write_horz_str(-l()5,- 1 57,"  1  (S)",28); 
write_horz_str(-180,-98,”0(-)",28); 

write_horz_str(-5,-53,"3(E)",28); 
write_horz_str(-5 ,- 1 77, "3(D)"  ,28); 
write_horz_str(5,-83,"3(C)",28); 

write_horz_str(50,-157,"4(G)",28); 

write_horz_str(55,-122,"4(H)’’,28); 

drawLine(-]00, -80, -150, -110,21);  /*  AS  */ 

drawLine(-50,-l  10,-100,-80,21);  /*  CA  */ 

drawLine(-50,-l  10,50,-110,21);  /*  CT  */ 

wait("”); 

nonnal_exit(); 


} 
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void  wait(char  title[]) 


int  tab, width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxl  1)  II  (mode  =  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title.WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writString(" Press  any  key  to  continue  WHITE, 0); 

if(waitkey(  )==ESC)  confinn_graph_exit(); 
cls(0); 


static  void  confinn_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS )  mshidecur(); 

write_horz_str(- 300,-2 10, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)»  { 
write_horz_str(30.-210,"  Please  type  y  orn",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31 ); 

) 

switch  (ch)  ( 

case  ’y nonnal_exit(); 
break; 

case  ’Y’;  normal_exit(); 
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break; 


case  ’n’:write_iiorz_str(-300,-210,"  ”,31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",31v 

break; 

default :  break; 

I 

if(_mouse&MS_CURS)  msshowcurO, 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


I 


/*  this  function  handles  normal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  normal__exit(void) 


setModc(3); 

videoinitf); 

srestore(savescm ); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcmO; 

exit(O); 

> 
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/*  PROGRAM  :  ex3_40.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.li> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxklef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h” 

#include  "cxlstr.h” 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

^/* +  ******  +  **  +  +  **  +  *  +  **  +  *  +  +  *  +  ***********  +  +  ****  +  ***  +  ******  +  *  +  *  *■ 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

ft*********************************************************/ 


char  adapt; 

;nt  color  =  2; 
int  LINEWTDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 
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FUNCTION  DEFINITIONS 

♦  ♦fr******************-*-***********-***************** 

void  wait(char  tit!e[]); 
static  void  exantple_3_40  (void); 
static  void  confirrn_graph_exit(void); 
static  void  normal_exit(void); 

’*  **<********************************************* 
MAIN  PROGRAM 

**************************************************/ 


main() 

i 

els  (I  ); 

adapt  =  getAdapier(); 
if  (adapt  ==  ’  V’) 

I 

setMode(0xl2); 
cls(l ); 

) 

if  (adapt  ==  ’E’) 

( 

setMode(16); 
cls(  1 ); 


if  (adapt  ==  ’C" ) 


setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

exaniple_3_40(); 

setMode(3); 
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/********************************if*4>*****>H**********^**t****************l 

static  void  example_3_40(void) 

I 


LINEWIDTH  =  3; 

cls(l); 

drawRect(-309,21 0.3 10,-200,1 1); 
drawLine(-50,0,-100,-50,ll);  /+  BA  */ 

diawLioe(- 100,-50,-50,-100,11);  /*  AC  */ 
drawLine(-50,- 1 00,50,- 1 00, 1 1 );  /*  CF  */ 
draw Line(50,- 100, 100.-50, 11);  /*  FG  */ 

drawLine(  1 00,-50,50,0. 11);  /*  GE  */ 

drawLine(50,0,-50,0, 11);  /*  EB  */ 

drawLine(-50,0,50,-100,ll);  /*  BF  */ 

drawLine(50.0,-50,- 1 00, 1 1 );  /*  EC  */ 

drawLine(50.0,50,-100,ll);  /*  EF  */ 


aspect  =  1 .0; 

fillOval(-50,0,3 , 1 6,aspect); 
fillOval(- 100,-50,3, 16, aspect); 
fillOval(-50.- 100,3, 16, aspect); 
fillOvaI(50,- 1 00,3, 1 6, aspect); 
fillOval(  1 00,-50,3 , 1 6, aspect ); 
fillOval(50, 0,3, 16, aspect); 
fiUOval(0,-50,3, 16,  aspect); 

write_horz_cliar(-50, 17,66,31);  /*  B  */ 

write_horz_char(- 110,-50,65,31);  /*  A  */ 
write_horz_char(-50,-l  12,67,31);  /*  C  */ 
write _horz_char(50, -112,70,31);  /*  F  */ 
write_hoix_char(105,-50,71,31);  /*  G  */ 
writejiorz_cliar(50, 1 7,69,3 1 );  /*  E  */ 

write _horz_char(-2,-30,68 ,31);  /*  D  */ 

write  Jiorz_char(-90  -15,51,31);  /*  3  */ 
write_horz_chai (-90,-75,52,31);  /*  4  */ 
write_horz_char(0,-83,54,31 );  /*  6  */ 

write _liorz_cluir(80,-80,50,3 1 );  /*  2  */ 
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write_horz_char(80,- 10,52,31);  /*  4  */ 
write_horz_char(0,17,50,31);  /*  2  */ 

write_horz_char(-35,-25,49,31);  /*  1  */ 
write_horz_char(25,-30,49,31);  /*  1  */ 
write_horz_char(-35, -60,50  31);  /*  2  */ 
write  Jiorz_char(30,-60,53, 31);  /*  5  */ 
write_horz_char(55,-50,50,31);  /*  2  */ 
write_horz_str(-300,180,"The  graph  in  the  following  figure  is" 

"  a  weighted  graph  since  each  edge",31); 
write_horz_str(-300,160,"has  a  number  assigned  to  it.  For  example" 

"  the  weight  of  the  edge  on  A  and",31 ); 
write_horz_str(-300,140,"B  is  3  and  the  weight  of  die  edge  on" 

"  D  and  F  is  5.  The  weight  of  the"  ,31); 
write_horz_str(-300, 120, "path  A,  C,  D,  F  is  4  +  2  +  5  =  1 1,” 

"  and  die  weight  of  the  path  F,  D,  B,",31); 
write_horz_sti(-300,100,"E,  Dis5  +  l  +  2+  l=  9.", 31); 
wait("  Example  3.40  "); 

) 

void  wait(char  title[]) 

I 

int  tab,widtli.line,mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x1 1 )  II  (inode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writStringl "Press  any  key  to  continue  ...",  WHITE, 0); 

getch(); 

cls(0); 
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static  void  confirm_graph_exit(void) 
f 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80, 210, "Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  —  ’N’)»  { 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getch  (); 

) 

switch  (ch)  { 

case  ’y’:  setMode(3); 
videoinit(); 
nomial_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
nomial_exit(); 
break; 

case  ’n’: 

break; 

case  ’N’. 

break; 

default :  break; 

I 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  ex3_41.c 
:  YavuzBAS 
:  Feb.  4,  1990 
:  Mar.  5,  1990 


DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h” 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 
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/************ **********1 <************************** 
FUNCTION  DEFINITIONS 

************************************************/ 

void  wait(char  title[J); 
static  void  example_3_41  (void); 
static  void  confirm _graph_exit  (void); 
static  void  normal_exit(void); 

MAIN  PROGRAM 

************ *******************% ******************/ 

main() 

( 

els  (1); 

adapt  =  getAdapterQ; 
if  (adapt  ==  ”V') 

{ 

setMode(0xl2); 

cls(I); 

> 

if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

( 

setMode(4); 

setCGAPalette(O); 

cls(l); 

) 

exainple_3_41(); 

setMode(3); 

) 
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^/*  *********  ***************************%** ******  ********  *****************/ 
static  void  exaniple_3_41(void) 

I 


LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309, 210, 3 10,-200,1 1); 


drawLine(- 100,-50,0,-50,31);  /*  AB  */ 

draw Line(0, -50, 50,-20, 11);  /*  BC  */ 

drawLine(0, -50,50,-80,1 1);  /*  BD  */ 

drawLine(50,-20,50,-80, 11);  /*  CD  */ 

drawLine(50,-80, 1 00,-50,3 1 );  /*  DE  */ 

aspect  =  1 .0; 

fi!10val(-100,-50,3f16,aspect); 
fillOval(0,-50,3,16,aspect); 
fillOval(50,-20,3 , 1 6, aspect); 
fillOval(50,-80,3,I6,aspect); 
fillOval(  1 00,-50,3, 1 6, aspect ); 

write_borz_char(-110,-50,65,31);  /*  A  */ 
write_horz_cliar(0,-58,66,31);  /*  B  */ 

write  Jiorz_char(50,-5,67,3 1 );  /*  C  */ 

write_horz_char(50,-85,68,31);  /*  D  */ 

write_liorz_char(  105, -50,69 ,31);  /*  E  */ 

writejiorz_cliai(-50,-35,51,31);  /*  3  */ 
write_horz_str(15,-15,"-2",31);  /*  -2  */ 
write_horz_str(15,-70,"-3",31);  /*  -3  */ 
write_horz_char(40, -45 ,49,31);  /*  1  */ 
write_horz_char(65,-50,50,31);  /*  2  */ 


write_horz_str(-300,180,"For  the  weighted  graph  in  the  following" 

"  figure  the  path  A,  B,  D,  E  has" ,31); 
write_horz_str(-300,160,"weight  2,  and  the  path  A,  B,  D,  C,  B,  D," 

"  E  has  weight  -2,  which  is  a",31); 
write_horz_str(-300,140,"smaller  weight  than  that  for  the  first" 
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"  path.  Note  that  as  the  cycle", 3  J ); 
write_horz_str(-300,120,"B,  D,  C  is  repeated,  the  weight  of’ 

"  the  path  gets  smaller  and  smaller.",31); 
write_horz_str(-300, 100, "Thus,  there  is  no  path  of  smallest  weight" 

"  between  A  and  E.",31); 

wait("  Example  3.41  "); 


!+ ******************************** ***** ************************ *********/ 
void  wait(char  title[J) 

I 

int  tab,width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxll)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(tide))/2; 
gotoxy(tab.O); 
writString(title,WHITE,0); 

,  tab  =  (width  -  33  )/2; 
gotoxy(tab.line); 

writString(" Press  any  key  to  continue  ...",  WHITE, 0); 

getchO; 

cls(0); 


static  void  confinn_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
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ch  =  getch  (); 


} 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinitQ; 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normai_exit(); 
break; 
case  ’n’: 

break; 
case  ’N’: 

break; 

default :  break; 

I 

if(_mouse&MS_CURS)  msshowcur(); 
cligoukey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 

y***********************************************************************/ 

/*  this  function  handles  nonnal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORJLEVEL  0.  */ 

static  void  normal_exit(void) 

I 

srestore(savescm); 
gotoxy  _(crow  ,ccol ); 
if(_mouse)  mshidecur(); 
showcurO; 
exit(0); 


300 


/*  PROGRAM  :  ex3_42,c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.b> 

#include  <niath.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#uiclude  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#uiclude  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


/***  +  **  +  *******■*************************************  +  ***** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
*  +  **********************+*******************+**.1,*******+/ 


char  adapt; 

int  color  =  2; 

int  L1NEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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^******************************** ***************** 
FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait  (char  title  l]); 

static  void  example_3_42  (void); 

static  void  fig_3_47  (void); 

static  void  fig_3_48  (void); 

static  void  fig_3_49  (void); 

static  void  fig  3  50  (void); 

static  void  fig_3_51  (void); 

static  void  conftrm_graph_exit(void); 

static  void  normal_exit(void); 

jif  ************************************************** 

MAIN  PROGRAM 


^t**************************************************/ 


main() 

{ 

els  ( 1 ); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 
cls(l);  ) 

if  (adapt  ==  ’C’) 


setMode(4); 

setCGAPalette(O); 

cls(l);| 

example_3_42(); 

setMode(3); 
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static  void  exainple_3_42(void) 

I 

/************************************************  I***********************/ 

/*  attach  [Pageup]  to  the  exainple_3_42  function  */ 
setonkey  (0x4900 ,example_3_42,0); 

/*  attach  [PagedcwrJ  to  the  fig_3_47  function  */ 
setonkey(0x5100,fig_3_47,0); 

/*********************************** **********%***********%************/ 
LINE  WIDTH  =  3; 

cls(l); 

drawRect(-309 ,210, 310,-200, II ); 

drawLine(-50,0,- 1 00,-50,1 1);  /*  AS  */ 

draw  Linet- 100,-50, -50,-1 00, 1 1);  /*  SB  */ 
drawLine(-50, -100,50,-100,1 1 );  /*  3D  */ 
drawLine(50,-100, 100,-50, 11 ),  /*  DE  */ 

drawLine(  1 00,-50,50,0, 11);  /*  EC  */ 

di  awLine(50,0,-50,0, 11);  /*  CA  */ 

drawLine(  50,0,-50,- 1 00, 1 1 );  /*  AB  */ 

drawLine(50,0,-50,-100,l  1);  /*  CB  */ 

drawLine(50,0, 50, -100,1 1);  /*  CD  */ 

aspect  =  1.0; 

fillOval(-50.0,3,16,aspect); 
fillOval(- 100,-50,3, 16, aspect); 
fillOval(-50,- 1 00,3 , 1 6, aspect ); 
fill0val(50.-100,3,16,aspect); 
fillOval(  1 00,-50,3 , 1 6, aspect ); 
fillOval(50.0,3, 1 6, aspect ); 

write_horz_char(-50, 17,65,31);  /*  A  */ 

write_horz_char(-l  10,-50,83,31);  /*  S  */ 


I 


303 


write_horz_char(-50,- 11 2,66,3 1 );  /*  B  */ 
write_h°tz_char(50,-l  12,68,31);  /*  D  */ 
write_horz_char(  105,-50,69,31);  /*  E  */ 
write_horz_char(50, 17,67,31);  /*  C  */ 

write_horz_char(-90,-15,51,31);  /*  3  */ 
write_horz_char(-90,-75,49,31);  /*  1  */ 
write_horz_char(0,-83,53,31);  /*  5  */ 

write_horz_char(80,-80,49,31);  /*  1  */ 

write_horz_char(80,- 10,5 1,31);  /*  3  */ 
write_horz_char(0, 17,50,31);  /*  2  */ 

write_horz_char(-63,-50,49,31);  /*  1  */ 
write_horz_char(-5,-30,51,31);  /*  3  */ 
write_horz_char(55,-50,49,31);  /*  1  */ 

write_horz_str(-300,180,"for  the  weighted  graph  in  the  following" 

"  figure  we  want  to  find  a",31); 

write_horz_str(-300, 160, "shortest  path  and  the  distance  from  S  to" 

"  every  other  vertex.",31); 

waitf"); 

fig_3_47(); 

I 

/***********************************************************************/ 
static  void  fig_3_47(void) 


I***** ******************************************************** *********^ 

/*  attach  l Pageup]  to  the  example_3_42  function  */ 
se  tonkey  (0x4900 ,example_3  _42 ,0 ) ; 

^** *********************************************************************  I 

/*  attach  [Pagcdown]  to  the  fig_3_4S  function  */ 
setonkey(0x5 100,fig_3_48,0); 

LINE  WIDTH  =  3; 
cls(l ); 

drawRec  t(  -309,2 10,31 0,-200, 1 1 ); 
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drawLine(-50, 0,-100, -50, 1 1;;  /*  A3  */ 

drawLine(- 1 00,-50,-50,-100, 1 1 );  /*  SB  */ 
drawLine(-50, -100,50, -100,1  D;  /*  BD  */ 

drawLine(50, -100, 100, -50,1 1 );  /*  DE  */ 

drawLine(  100,-50,50  0,1 1);  /*  EC  */ 

drawLine(50,0,-50,0, 11);  /*  CA  */ 

drawLine(-50,0,-50,- 100,1 1 );  /*  AB  */ 

drawLiiie(50, 0,-50,- 100,11);  /*  CB  */ 

drawLine(50,0,50,-100,l  1);  /*  CD  */ 

aspect  =  1 .0; 

fillOval(-50,0.3. 16, aspect); 
fil!Oval(- 100, -50,3, 16,aspect); 
fill0val(-50,-100.3,16,aspect); 
flllOval(50,- 100,3, 16,aspect); 
fillOvaK  100.-50,3,16,aspect); 
fillOval(50.0.3.16.aspect); 


write_horz_char(-50,17,65,31);  /*  A  */ 
write_horz_str(-125,-50,"S*",31);  /*  S  */ 
write_horz_str(-135,-65,"0(')",27); 
write_ho.z_char(-50,- 11 2,66.31);  /*  B  */ 
write_horz_char(50,-l  12,68,31);  /*  D  */ 
write Jiorz_char(  105,-50,69,31);  /*  E  */ 
write_horz_char(50, 1 7,67,3 1 );  /*  C  */ 
write_horz_char(-90,-15,51.31 );  /*  3  */ 
write_horz._char(-90, -75, 49,31 );  /*  1  */ 
write Jtorz  _char(0, -83,53, 31);  /*  5  */ 
write_horz_char(80,-80,49,31);  /*  1  */ 
write_horz_char(80,-l  0,5 1,31);  /*  3  */ 
write_horz_char(0, 17,50,31);  /*  2  */ 
write_horz_char(-63, -50,49, 31 );  /*  1  */ 
write_horz_char(-5,-30,51,31);  /*  3  */ 
write_horz_char(55,-50,49,31);  /*  1  */ 
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write_hor7_str(-300,180,"  According  to  step  1,  we  start  by  putting" 

"  S  in  P  and  assigning",31); 

write_horz_str(-300,160,"  to  S  the  label  0  and  no  predecessor.  We" 

"  indicate  this  on  the",31); 

write_horz_str(-300,140,"  graph  by  writing  tire  label  and" 

"  predecessor  (in  parenthesis)  by  S.  We", 31 ); 
write_horz_str(-300,120,"  use  an  asterisk  to  show  that  S  is  in  P." 

"  The  graph  now  looks  ”,3 1 ); 
write_horz_str(-300,100,"  like  the  following: ”,31); 
wait(""); 
fig_3_48(); 

} 

static  void  fig_3_48(void) 


/*  attach  [Pageup]  to  the  fig_3_47  function  */ 
setonkey  (0x4900,  fig_3_47,0); 

^i***********************************************************************/ 

/*  attach  [Pagedown]  to  the  fig_3_49  function  */ 
setonkey(0x5 1 00,fig_3_49,0 ); 

LINE  WIDTH  =  3; 

cls(  1 ); 

drawRect(-309.2 10,3 10,-200,11); 


drawLine(-50,0, -100,-50,1 1);  /*  AS  */ 

drav  Line(- 100,-50,-50,- 100,1 1 );  /*  SB  */ 
drawLine(-50, -100,50, -100,!  1 );  /*  BD  */ 

drawLine( 50,- 100, 100.-50,1 1 );  /*  DE  */ 

drawLine(  1 00.-50,50,0, 11);  /*  EC  */ 

draw Line(50,0, -50,0, 11);  /*  CA  */ 

drawLine( -50,0,-50,- 1 00, 1 1 );  /*  AB  V 
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drawLine(50, 0,-50, -100,1 1);  /*  CB  */ 

drawLine(50, 0,50, -100, 1 1);  /*  CD  */ 

aspect  =  1 .0; 

fillOval(-50,0,3,16,aspect); 
fU10val(-100, -50,3,16, aspect); 
fill0val(-50.-100,3,16,aspect); 
fillOval(50,- 100,3, 16,  aspect); 
fillOval(  100,-50, 3, 16, aspect); 
fillOval(50.0,3, 16, aspect); 


write_horz_char(-50, 17,65,31);  /*  A  */ 

write_horz_str(-65,30,"3(S)",27); 
write _horz_str(-125,-50,"S*",3 1 );  /*  S  */ 

write_horz_str(-135,-65,"0(-)",27); 
write_horz_char(-50,-l  12,66,31 );  /*  B  */ 

write_horz_str(-65,-124,"l(S)",27); 
write  Jiorz_char(50,- 11 2,68,31);  /*  D  */ 

write  Jiorz_str(35.-124,"inf(S)",27); 
write_horz_char(  105,-50,69,31 );  /*  E  */ 

write_horz_str(100,-62,"inf(S)",27); 
write_horz_char(50, 17,67,31);  /*  c  */ 

write_horz_str(35,30,"inf(S)”,27); 
write _horz_char(-90,-15,5 1 ,3 1 );  /*  3  */ 

write_horz_char(-90,-75,49,3 1 );  /*  l  */ 

write_horz_char(0,-83,53,31 );  /*  5  */ 

write_horz_char(80,-80,49,3 1 );  /*  ]  */ 

write_horz_char(80 ,-10,51,31);  /*  3  */ 

write_horz_char(0, 17,50,31);  /*  2  */ 

write_horz_char(-63,-50,49,31);  /*  1  */ 

write Jiorz_char(-5, -30,5 1,31);  /*  3  */ 

write_horz_char(55,-50,49,31);  /*  1  */ 


write_horz_str(-300,180,"  Next,  according  to  step  2,  we  assign  the 

"  label  W(S,V)  and  the  predecessor" ,3 1 ) 
write_horz_str(-300,l60,"  S  to  the  other  vertices.” 
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"  Recall  that  W(S,V)  =  inf  when  there  is  no  edge",31); 
write_horz_str(-300,140,"  between  S  and  V.  The  graph  now  looks" 

"  like  the  following:", 31); 

wait(""); 

fig_3_49(); 


) 

J*******,****************************************************************! 

static  void  fig_3_49(void) 

I 


/****** *#*4,*** ********************************************************** I 


/*  attach  [Pageup]  to  the  fig_3_48  function  */ 
setonkey(0x4900,fig_3_48,0); 


/*  attach  [Pagedown]  to  the  fig_3_50  function  */ 
setonkey(0x5 1 00,fig_3_50,0); 


^***********************************************************************y 
UNEWIDTH  =  3; 


cls(l); 

drawRect(-309,210,3 10,-200, 11); 


drawLine(-50,-60,- 100,-1 10,1 1 );  /*  AS  */ 
drawLine(- 100,-1 10,-50,-160,1 1);  /*  SB  */ 
drawLine(-50, -160,50, -160, 1 1);  /*  BD  */ 

drawLine(50, -160, 100, -110,11);  /*  DE  */ 

clrawLine(  100,-1 10,50,-60,1 1 );  /*  EC  */ 

drawLine(50,-60,-50,-60,l  1 );  /*  CA  */ 

drawLine(-50,-60,-50,-160,l  1 );  /*  AB  */ 

drawLine(50,-60,-50,- 160,1 1 );  /*  CB  */ 

drawLine(50,-60,50,- 160,1 1 );  /*  CD  */ 


aspect  =  1 .0; 

fillOval(-50,-60,3, 16, aspect); 
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fillOval(- 100,-1 10, 3, 16, aspect); 
fillOval(-50,- 1 60,3, 1 6, aspect); 
fillOval(50,-160,3,16,aspect); 
fillOval(100,-i  10,3, 16, aspect); 
fillOval(50,-60,3 , 1 6, aspect); 


write_horz_char(-50,-43,65,31);  /*  A  */ 

write_horz_str(-65,-30,"2(B)",27); 
write_horz_str(-125,-l  10,"S*",31 );  /*  S  */ 

write_horz_str(- 1 35 ,- 1 25 ,"0(-)"  ,27 ); 
write_horz_str(-50,-172,"B*",31);  /*  B  */ 

write_horz_str(-65,- 1 84,"  1  (S)",27 ); 
write_horz_char(50,-172,68,31);  /*  D  */ 

write  _horz_str(35,- 1 84,"6(B  )",27 ); 
write_horz_char(  105 ,-110,69,31);  /*  E  */ 

write_horz_str(100,-122,"inf(S)",27); 
write_horz_char(50,-43,67,31);  /*  C  */ 

write_horz_str(35,-30,"4(B)",27); 
write_horz_char(-90,-75,51,31);  /*  3  */ 

write_horz_char(-90, -135,49 ,31);  /*  1  */ 

wiite_horz_char(0,-143,53,31);  /*  5  */ 

write_horz_chai(80, -140,49,31);  /*  1  */ 

write_horz_char(80,-70,51,31);  /*  3  */ 

write_liorz_char(0,-43,50,31);  /*  2  */ 

write_horz_char(-63,- 110,49,31);  /*  1  */ 

write_horz_char(-5, -90,5 1,31);  /*  3  */ 

write  _horz_chai  (55,-1 10,49,31);  /*  1  */ 


write_horz_str(-300,200,"Now  we  apply  step  3.  The  vertex  not  in  P" 

"  with  the  smallest  label  is  B,  and",31); 
write_horz_str(-300,180,"so  we  add  it  to  P.  The  vertices  not  in  P" 

"  and  adjacent  to  B  are  A,  C,  and  D;",31); 
write_horz_str(-300,160,"and  we  replace  the  label  on  each  such" 

"  vertex  X  by  the  minimum  of  the  old",31); 
write_horz_str(-300, 140, "label  and  (label  on  B)  +  W(B.X).  These" 

"  numbers  are  as  follows.", 31 ); 
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drawLine(-260, 120,230, 120,27); 

write_horz_str(-250,l  10, "Vertex  X  Old  label  (Label  on  B)  +" 

"W(B,X)  Minimum" ,31); 


drawLine(-260,95,230,95,27); 
write_horz_str(-250,85, "  A 

3 

1  +  1=2’ 

write_horz_str(  -250,70, 

ti 

"  C 

2  ",3 1); 
inf 

1+3  =  4’ 

write_horz_str(-250,50, 

ti 

"  D 

4  ”,31); 
inf 

1  +  5  =  6 

»» 

6  ",3 1 ); 

write_horz_str(-300,25,  "Since  each  label  is  changed,  we  also" 

"  replace  the  predecessor  of’,31); 
write_horz_str(-300,5,  "each  of  these  vertices  by  B,  producing" 

"  the  following  figure.",31); 


wait(""); 

fig_3_50(): 


y***********************************************************************y 
static  void  fig_3_50(void) 

I 

j***********************************************************************  j 

/*  attach  [PageUp]  to  the  fig_3_49  function  */ 
setonkey(0x4900,fig_3__4c>,0); 


y*********** ********* ***************%************************** *********y 

/*  attacli  [Pagedown]  to  the  fig_3_5 1  function  */ 
setonkey  (0x5 1 00,fig_3_5 1 ,0); 


y***********************************************************************y 

LINE  WIDTH  =  3, 

els(l); 

drawRect(-309,21 0,3 10,-200, 11); 
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drawLine(-300,l  20,300,120,27); 

write_horz:_str(-300,l  10,"  Labels  and  predec" 

”essors",31); 

write_horz_str(-300,95, "  Vertex  SAB  C 

"  D  E  Vertex  added  to  P"  ,31); 

drawLine(-300, 80, 300,80, 27); 

write_horz_str(-300,65, "  0(-)3(S)l(S)  inf(S)  inf(S)" 

"  inf(s)  S",31); 

write_horz_str(-300,50, "  2(B)  4(B)  6(B) " 

"  B",31); 

write_horz_str(-300,35, " 

A",31); 


write_horz_sti  (-300,20, "  5(C) 

"  7(C)  C",31); 

write_hoiz_str(-300,5, " 

"6(D)  D",31); 

write_horz_str(-300,-10, " 

"  E",31); 


write_horz_str(-300,180,  "We  continue  in  this  way.  The  figure" 

"  below  shows  the  labels,  predecessors"  ,31); 
writejion:_str(-300,160,  "and  vertices  added  to  P  at  each  stage" 

No  entry  in  a  column  indicates",31 ); 
write Jhorz_str(-300, 140,  "no  change  from  the  previous  stage.",31); 
wait(""); 
fig_3_51(); 

} 
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static  void  fig_3_51(void) 

{ 


/*  attach  IPageup]  to  the  fig_3_50  function  */ 
setonkey(0x49O0,lig_3_50,0  y, 

/***********************************************************************/ 
/*  attach  [Pagedown]  to  the  normal_exit  function  */ 
setonkey(0x5 1 00,nomial_exit,0); 


/************************************************************ *********** >i 

LINE  WIDTH  =  3; 


cls(l); 

drawRect(-309, 210, 3 10,-200,11); 


drawLine(-50,0,- 100,-50,1 1);  /*  AS  */ 

drawLine(- 1 00,-50,-50,-100, 11);  /*  SB  */ 
diawL ine(-50,- 100,50,- 100,1 1 );  /*  BD  */ 
drawLine(50,- 1 00, 1 00,-50, 11);  /*  DE  */ 

drawLine(  100,-50,50,0, 11);  /*  EC  */ 

drawLine(50,0,-50,0,l  1 );  /*  CA  */ 

drawLine(-50,0, -50,- 100,1 1);  /*  AB  */ 

drawLine(50,0,-50,- 100,1 1);  /*  CB  */ 

drawLine(50,0,50,- 100,1 1 );  /*  CD  */ 

aspect  =  1.0; 

fillOval(-50,0,3,16,aspect); 
fillOvaK- 1 00,-50,3, 1 6, aspect); 
fillOval(-50,- 100,3, 16,  aspect); 
fill0val(50.-100,3,16,aspect); 
fillOval(  100,-50,3, 16:?spect); 
fillOval(50.0,3,16,aspect); 

write_horz_sti(-50,17,"A*",3l);  /*  A  */ 
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write_horz_str(-65 ,30,"2(B )"  ,27 ); 

write_horz_str(-125,-50,"S*",31);  /*  S  */ 

write_horz_str(- 1 35  ,-65  ,"0(-)",27); 

write_horz_str(-50,- 112, "B*", 31);  /*  B  */ 

write_horz_str(-65 ,- 1 24,"  1  (S)",27); 

write_horz_str(50 -112,"D*",31);  /*  D  */ 

write_horz_str(35,-124,"5(C)",27); 

write_horz_str(105,-50,"E*",31);  /*  E  */ 

write_horz_str(100,-62,"6(D)",27); 

write_horz_str(50, 17,"C*",3 1 );  /*  C  */ 

write_horz_str(35,30,"4(B)",27); 

write_horz_cliar(-90,-15,51,31);  /*  3  */ 

write_horz_char(-90,-75,49,31);  /*  1  */ 

write_horz_char(0,-83,53,31);  /*  5  */ 

write_horz_char(80,-80,49,3 1 );  /*  1  */ 

write_horz_char(80,- 10,5 1,31);  /*  3  */ 

write_horz_char(0, 17,50,31);  /*  2  */ 

write_horz_char(-63,-50,49,31);  /*  1  */ 

write_horz_char(-5,-30,51,31);  /*  3  */ 

write  _hore_char(55, -50, 49,31);  /*  1  */ 


write_horz_str(-300,180,"  Tlie  final  graph  is  shown  in  the  following" 

"  figure.  In  this  figure  the", 31 ); 

wnte_horz_str(-300,160,"  label  on  each  vertex  gives  the  distance" 

"  between  it  and  S,  and  a  path"  ,3 1 ); 
write_horz_str(-300,140,"  of  this  length  can  be  found  by" 

"  backtracking  through  the  predecessors",31); 
write_horz_str(-300,120,"  of  the  vertices.  For  example  the" 

"  distance  from  S  to  E  is  6,  and  the",31); 
write_horz_str(-300, 1 00,"  path  S,  B,  C,  D,  E  has  this  length. ",31 ); 

wait(""); 

normal_exit(); 
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^* **********************************************************************/ 


void  wait(char  title[]) 

{ 

int  tab, width, line,mode; 

mode  =  ge  t  Mode  (& width); 

if  ((mode  =—  Ox  11)11  (mode  =  0x12)) 


line  =  29; 


else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(  title  ,W  H1TE,0 ); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringC'Press  any  key  to  continue  WHITE, 0); 

if(waitkey(  )==ESC)  confirm_graph_exit(); 
cls(O); 


/t**********************************************************************/ 


static  void  confInn_graph_exit(void) 

{ 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=cljgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecurO; 

write_horz_str(-300, -210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  ( ); 

while  (!((ch  =  ’y’)  II  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  "31); 


switch  (ch)  { 

case  ’y’:  normal_exit(); 
break; 

case  ’Y’:  normal_exit(); 
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break; 


case  V:write_horz_str(-300,-210,’’  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ”,31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


/*  this  function  handles  normal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/**************************  ********  ***  t********************************^ 

static  void  nonnal_exit(void) 

I 

setMode(3); 

videoinit(); 

srestore(savescm); 

gotoxy_(crow,ccol ); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

} 
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/*  PROGRAM  :ex3_30.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h” 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 
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FUNCTION  DEFINITIONS 

gfc***********************************************/ 

void  wait(char  title[]); 
static  void  example_3_30  (void); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 

MAIN  PROGRAM 

4c  *  *  *  *  *  *  *  #  *  4>4c  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  +  *  *  *  *  *  *  *  +  *  *  +  +  *  *  ★  *  *  * 

main() 


els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 


setMode(Ox  1 2); 
cls(l): 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

) 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

example_3_30( ); 
setMode(3); 
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static  void  example_3_30(void) 


I 

LINEWIDTH  =  3; 


cls(l); 

drawRect(-309,210, 3 10,-200,1 1 ); 


drawRect(50,0, 150,-1 00, 11); 
drawLine  (150,0,50,-100,11); 

LINEWIDTH  =  1; 

aspect  =  1 .0; 

drawArc(  1 10,-40,73,3030,1470,1 1  .aspect); 

LINEWIDTH  =  3; 
drawRect(-50,0, -150,-100, 1 1); 
drawLine  (-150,0,-50,-100,11); 
drawLine  (-50,0,-150,-100,11); 
fillOval(50,0,3, 16, aspect); 
fill0val(50,-100,3,16,aspect); 
fill0val(150,-100,3, 16, aspect); 
fillOval(  1 50,0,3 , 1 6,aspect); 
fil!0val(-50,0,3,16,aspect); 
fillOval(-50,- 1 00,3, 1 6,aspect); 
fillOval(- 1 50,- 1 00,3 , 1 6, aspect); 
fillOval(- 150, 0,3, 16, aspect); 

write_horz_str(-300,180,"We  have  a  great  great  deal  of  leeway" 

"  in  drawing  graphs.  For  instance,", 31 ); 
write_horz_str(-300,160,"we  readily  accept  the  fact  that" 

"  the  two  graphs  in  the  following  figure"  ,31); 
write _horz_str(-300, 140, "are  the  same.  The  oitly  difference" 

"  between  the  graphs  is  the  way  the  line",31); 
write_horz_str(-300, 120, "representing  one  of  the  edges  is" 

"  drawn.  The  structure  of  a  graph  is  captured", 31 ); 
write_horz_str(-300,100,"in  the  set  of  vertices  and  the  set  of 

"  edges.",31); 

wait("  Isomorphisms  "); 
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y*  ******  +  +  +  ****  +  *  +  .-,  ***************************** a***********************  j 

void  v.  al;(char  title[]) 

I 

int  tab, width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  =  0x11)1!  (mode  =  0x12)) 
line  =  29; 
else 

line  =  24; 

tub  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title, WHITE, 0); 
tab  =  (width  -  33  )/2; 
gotoxy(tab.line); 

writString("Press  any  key  to  continue  ...  ,  WHITE, 0); 

getch(); 

cls(0); 


/***************************************************************.,,*******/ 
static  void  confinn_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (), 

while  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’))>  ( 
write_horz__str(-80,190,"  Please  type  y  or  n",31); 
cli  =  getcli  (); 

} 

switch  (ch)  ( 

case  ’y  ’ :  setMode(3); 
videoinitO; 
normalexitO, 
break; 
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case  ’Y’:  setMode(3); 
videoinit(); 
nonnal  _exit(); 
break; 


case  ’n’; 

break; 

case  ’N’: 

break; 

default  ;  break; 

) 

if(_mouse&MS_CURS)  msshowcurf); 
cligonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


^C**************.***********************************************  ******  j 

/*  this  function  handles  nonnal  tennination.  Tire  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^*  ********************************************•<<*************************/ 
static  void  normal_exit(void) 

( 

srestore(savescni); 

gotoxy_(crow.ccol); 

if(_tnouse)  insiiidecur(); 

showcurf); 

exit(0); 

I 
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/*  PROGRAM  :  ex3_31.c 

AlTrHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  'gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h” 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

int  color  =  2; 

int  LINEW1D1  H=l; 

unsigned  long  hit  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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^/****  ****************************  ****************** 
FUNCTION  DEFINITIONS 

*************************************************/ 
void  wait(char  title[]); 
static  void  example_3_3 1  (void); 
static  void  ex_3_31  contl  (void); 
static  void  ex_3_31cont2  (void); 
static  void  ex_3_31cont3  (void); 
static  void  ex_3_31cont4  (void); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 

y*  ************************************************ 

MAIN  PROGRAM 

************************************************^ 

main() 


els  (1); 

adapt  =  getAdapterQ; 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

) 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 
setCGAPalette(O); 
cls(  1 ); ) 

exaniple_3_31(); 

setMode(3); 
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/***  *******  ***********************************!„****,,,,„****,,, 
static  void  example_3_31(void) 

I 

/*  attach  [Pageup]  to  the  example_3_31  function  */ 
setonkey(0x4900,example_3_3 1 ,0); 


^♦****4t4«***J|«*J»t**%J»t**3|«***********4t**1#t^**********^J#C****>l«**l|CJ|»******J»«*j|.*j|.3*t** ^ 


/*  attach  [Pagedown]  to  the  ex_3_31contl  function  */ 
setonkey  (0x5 1 00,ex_3_3 1  corn  1 ,0); 


LINE  WIDTH  =  3; 


cls(l); 

drawRect(-309,2 1 0,3 1 0,-200, 11); 


drawLine  (-100,-100,-120,-170,11);  /*  AD  */ 
drawLine  (-120,-170.-70,-130,11);  /*  DC  */ 

drawLine  (-70,-130,-130,-130,11);  /*  CB  */ 

drawLine  (-130,-130,-80,-170,11);  /*  BE*/ 

drawLine  (-80,-170,-100,-100,11);  /*  EA  */ 

aspect  =  1 .0; 

fiUOval(- 100,- 1 00,3, 1 6, aspect); 
fillOval(- 120, -170,3, 16, aspect); 
fillOval(-70.- 1 30,3, 1 6,aspect); 
fillOval(- 1 30,- 1 30,3, 16, aspect); 
fillOval(-80,- 1 70,3 , 16, aspect); 


write_horz_char(- 100,-80,65,3 1 );  /*  A  */ 
write_horz_char(- 145 ,- 1 30,66,3 1 );  /*  B  */ 
write_horz_char(-65,- 130,67,31);  /*  C  */ 
write  Jiorz_char(-135, -170,68, 31);  /*  D  */ 
write_horz_char(-75,- 170,69,31);  /*  E  */ 


write_horz_char(  1 00,-80,80,3 1 );  /*  P  */ 
write_horz_char(55 ,- 130,81,31);  /*  Q  */ 


write_horz_char(135,-130,82,31);  /*  R  */ 
write_hor2:_char(65, -170,83,31);  /*  S  */ 

write_horz_char(  1 25  ,-170,84,3 1 );  /*  T  */ 

drawLine  (100,-100,70,-130,1 1 );  /*  PQ  */ 
drawLine  (70,-130,80,-170,1 1);  /*  QS  */ 

drawLine  (80,-170,120,-170,11);  /*  ST  */ 

drawLine  (120,-170,130,-130,11);  /*  TR  */ 
drawLine  (130,-130,100,-100,11);  /*  RP  */ 

fU10val(100,-100,3,16,aspect); 
fillOval(80,- 1 70,3 , 1 6,aspect); 
fiUOval(  1 30,-1 30,3, 1 6, aspect ); 
fillOval(70,-130,3,16,aspect); 
fillOval(  1 20,- 1 70,3 ,16, aspect); 

write_horz_str(-300,180,"Now  we  will  try  to  show  that  the  graphs" 

"  in  the  following  figure  are",31); 
write_horz_str(-300, 160, "isomorphic.  First,  we  have  to" 

"  find  a  bijection  f  from  the  set  { a,  b,  c,  d,  e)",31); 
write_horz_str(-300,140,"to  the  set  {p,  q,  r,  s,  t)" 

"  that  preserves  edges.  We  will  describe",31); 
write_horz_str(-300,120,"tlie  function  as  a  table  of  the  form",31); 
write_horz_str(-100,85,"V  A  B  C  D  E",31); 
write_horz_str(- 1 00,55  ,"f(  V)"  ,31); 

drawLine(- 100,65, 11 0,65,1 1); 
drawLine(  - 1 00 ,95 , 1 1 0 ,95 , 1 1 ) ; 
draw  Line(- 100,35,1 10,35,11); 

write_horz_str(-300, 1 0,”where  the  entries  in  the  second  row" 

”  will  give  the  image  of  each  of  the",31); 
write_horz_str(-300,- 10, "elements  in  the  first  row.",31); 
wait(  "Isomorphic  graphs"); 
ex_3_31contl(); 
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/**********************************************************************+/ 
static  void  ex_3_31  contl  (void) 

I 

/ft**********************************************************************/ 

/*  attach  [Pageup]  to  the  example_3_3  i  function  */ 
setonkey(0x4900,example_3_3 1 ,0); 

/*  attach  [Pagedown]  to  the  ex_3_3  i  cont2  function  */ 
setonkey(0x5 1 00,ex_3_3  lcont2,0); 


/************%*%*****%**************************************************/ 


LINE  WIDTH  =  3; 


cls(l); 

drawRect(-309, 210,310, -200,1 1); 


drawLine  (-100,-100,-120,-170,1 1);  /*  AD  */ 
drawLine  (-120,-170,-70,-130,11);  /*  DC  */ 

drawLine  (-70,-130,-130,-130,1 1 );  /*  CB  */ 

drawLine  (-130,-130,-80,-170,11);  /*  BE  */ 

drawLine  (-80,-170,-100,-100,11);  /*  EA  */ 


aspect  =  1 .0; 

fillOval(- 1 00,-100,3 , 1 6, aspect); 
fiUOval(-120,-170,3, 16, aspect); 
fiUOval(-70,-130,3,16,aspect); 
fillOval(- 1 30,- 1 30,3 , 1 6,  aspect ) ; 
fillOval(-80,-170,3,16,aspect); 


write_horz_cliar(-100,-80,65,31);  /*  A  */ 
write_horz_char(-145,-130,66,31);  /*  B  */ 
write_horz_char(-65, -130,67 ,31 );  /*  C  */ 
write_horz_char(- 135,- 170,68 ,31);  /*  D  */ 
write_horz_char(-75,- 170,69,31);  /*  E  */ 
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write_horz_char(100,-80,80,31);  /*  p  */ 

write_horz_char(55,-130,81,31 );  /*  Q  */ 
write_horz_char(135, -130, 82,31);  /*R  */ 
write_horz_char(65,-170,83,31);  /*  S  */ 
write_horz_char(  125 ,-170,84 ,31);  /*T  */ 

drawLine  (100,-100,70,-130,11);  /*  PQ  */ 
drawLine  (70,-130,80,-170,11);  /*  QS  */ 
drawLine  (80,-170,120,-170,1 1);  /*  ST  */ 
drawLine  (120,-170,130,-130,11);  /*  TR  */ 
drawLine  (130,-130,100,-100,11);  /*  RP  */ 

fill0val(100,-100,3,16,aspect); 
fillOval(80,- 1 70,3 , 1 6, aspect ); 
fillOval(  130,-1 30,3 , 1 6, aspect); 
fillOval(70, -130,3, 16,aspect); 
fillOval(120,-170,3,16,aspect); 

write_horz_str(-300,180,"We  start  by  arbitrarily  assigning  f(A)” 

”  =  P  Now  A  is  adjacent  to  D",31); 
write_horz_str(-300,160,"and  E,  so  P  must  be  adjacent  to" 

"  f(D)  and  f(E).  This  requires  that",31); 
write_horz_str(-300,140,"(f(D),f(E))={Q,R}  since  Q  and  R  are  the" 

"  vertices  adjacent  to  P.  Arbitrarily,",31); 
write_horz_str(-300,120,"we  select  f(D)  =  R  and  f(E)  =  Q.  Then" 

"  our  table,  so  far,  looks  like",31); 
write_horz_str(- 1 00,65 ,"V  A  B  C  D  E",31); 

write_horz_str(- 100,35, "f(V)  P  R  Q",31); 
drawLine(- 100,45,1 10,45,1 1); 
drawLine(-100,75,l  10,75,1 1 ); 
drawLine(-100, 15, 110,15,11); 

wait( "Isomorphic  graphs  "); 
ex_3_31cont2(); 
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/*****  ****************************:«,  **********************11,41****** 


static  void  ex_3_3lcont2(void) 

( 


/******************************+**m#+**mmmti'!t,),t,ll'j,j,i>'*lt'll'ltl!t'*jt']tt**i)'t)i*/ 

/*  attach  [Pageup]  to  the  ex_3_31  contl  function  */ 
setonkey(0x4900,ex_3_3 1  cont  1 ,0); 

/*  attach  [PagedownJ  to  the  ex_3_31cont3  function  */ 
setonkey(0x5 1 00,ex_3_3  lcont3 ,0); 

l*******************************************************^^,,'^^^/ 
LINE  WIDTH  =  3; 
cls(l ); 

drawRect(-309,2 1 0,3 10,-200, 1 1 ); 

drawLine  (-100,-100,-120,-170,11);  /*  AD  */ 
drawLine  (-120,-170,-70,-130,11);  /*  DC  */ 

drawLine  (-70,-130,-130,-130,1 1);  /*  CB  */ 

drawLine  (-130,-130,-80,-170,1 1);  /*  BE  */ 

drawLine  (-80,-170,-100,-100,11);  /*  EA  */ 

aspect  =  1.0; 

fillOval(- 100,-1 00,3, 1 6,aspect); 
fillOval(-120,-170,3, 16, aspect); 
fil!0val(-70,-130,3,16,aspect); 
fiUOval(- 1 30,- 1 30,3, 16,aspect); 
fiUOval(-80.-170,3,16,aspect); 

write_Iion:_char(- 100,-80,65,31);  /*  A  */ 
write_horz_char(- 1 45,- 1 30,66,3 1 );  /*  B  */ 
write Jiorz_char(-65,- 130,67,31);  /*  C  */ 
write Jiorz_char(- 135,- 170,68,31);  /*  D  */ 
write_horz_char(-75,-170,69,31 );  /*  E  */ 
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write_horz_char(  100,-80,80,31);  /*  P  */ 

write_horz_char(55, -130,8 1,31);  /*  Q  */ 
writ e_horz_char( 135, -130,82, 31);  /*  R  */ 
write_horz_char(65,-170,83,31);  /*  S  */ 
write_horz_char(125 ,-170, 84,31);  /*  T  */ 

drawLine  (100,-100,70,-130,11);  /*  PQ  */ 
drawLine  (70,-130,80,-170,11);  /*  QS  */ 

drawLine  (80,-170,120,-170,11);  /*  ST  */ 
drawLine  (120,-170,130,-130,11);  /*  TR  */ 
drawLine  (130,-130,100,-100,11);  /*  RP  */ 
fill0val(100,-100,3,16,aspect); 
fiJ10val(80.-170, 3,1 6, aspect); 
fillOval(  1 30,- 1 30,3 , 1 6, aspect ); 
fillOval(70,-130,3,16,aspect); 
fillOval(  1 20,- 1 70,3 , 1 6, aspect); 

write_horz_str(-300,180,"0ur  remaining  task  is  to  map  the  set" 

"  {B,C|  onto  the  set  (S,T).",3I); 
write_horz_str(-300,160,"At  this  stage,  our  choices  are  limited." 

"  Observe  that  B  is  adjacent  to  C”,31 ); 
write_horz_str(-300, 1 40, "and  E.  Since  f(E)  =  Q,  we  must  have  f(B)" 

"  adjacent  to  Q.  Vertices  P  and  S",31); 
writejiorz_str(-300,120,"are  adjacent  to  Q,  but  we  already  have  f(A)" 

"  =  P,  so  we  are  forced  to  take",31); 
write_horz_str(-300,100,"f(B)  =  S  to  be  sure  that  f  is  a  bijection" 

Then  we  have  to  let  f(C)  equal  T.",31); 
write_horz_str(-300,80,"The  complete  table  is",31); 
write Jhorz_str(- 100, 45, "V  A  B  C  D  E",31); 
write Jiorc_str(-100, 15, ”f(V)  P  S  T  R  Q’,31); 
drawLine(-100,25,l  10,25,1 1); 
drawLine(- 100,55,1 10,55,11); 
drawLine(- 100,-5,1 10, -5,1 1 ); 
wait("  Isomoiphic  graphs  "); 
ex_3_31cont3(); 
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^**********i|t*******l|!******************l|t****:(<!|<*******:ti  +  *******:t<*!|c>tcj(<*****!ty 

static  void  ex_3_31cont3(void) 

{ 


/* ****++***+*+********+************+*+**+***************+*+*+*********+*/ 


/*  attach  [Pageup]  to  the  ex_3_31cont2  function  */ 
setonkey(0x4900,ex_3_3 1  cont2,0); 


/if**********************************************************************/ 

/*  attach  [Pagedown]  to  the  normal_exit  function  */ 
setonkey(0x5 100,nonnal_exit,0); 


y,**;f*  +  *  +  **  +  )(<*)4<*  +  )(<*jf  +  ***  +  *it<*  +  +  !((  +  **  +  4<*  +  *  +  *  +  *  +  4<i*<***  +  **  +  +  +  j*<  +  *  +  +  Jt<*>K  +  i(<*****)(<  +  *^ 

LINE  WIDTH  =  3; 


cls(l); 

drawRect(-309,2 10,3 1 0,-200, 1 1 ); 


drawLine  (-100,-100,-120,-170,1 1);  /*  AD  */ 
drawLine  (-120,-170,-70,-130,11);  /*  DC  */ 

drawLine  (-70,-130,-130,-130,1 1);  /*  CB  */ 

drawLine  (-130,-130,-80,-170,1 1);  /*  BE  */ 

drawLine  (-80,-170,-100,-100,11);  /*  EA  */ 


aspect  =  1 .0; 

fillOval(- 1 00,- 1 00,3 , 1 6, aspect) ; 
fillOval(- 1 20,- 1 70,3 , 1 6, aspect) ; 
fillOval(-70,- 130,3,1 6, aspect); 
fiI10val(- 1 30,- 1 30,3, 16, aspect); 
fillOval(-80.- 1 70,3 , 1 6, aspect); 


write_horz_char(- 100,-80,65 ,31);  /*  A  */ 
write_horz_char(-145,-130,66,31);  /*  B  */ 
write_horz_char(-65,- 1 30,67,3 1 );  /*  C  */ 
write_horz_char(-135,-170,68,31);  /*  D  */ 
write_horz_char(-75,-170,69,3 1 );  /*  E  */ 
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write_horz_char(  100,-80,80,31);  /*  P  */ 
write_horz_char(55,-130, 81,31);  /*  Q  */ 

write_horz_char(135,-130,82,31);  /*  R  */ 
write_horz_char(65,-170,83,31);  /*  S  */ 

write_horz_char(125,-170,84,31);  /*  T  */ 

drawLine  (100,-100,70,-130,1 1);  /*  PQ  */ 
drawLine  (70,-130,80,-170,11);  /*  QS  */ 

drawLine  (80,-170,120,-170,11);  /*  ST  */ 
drawLine  (120,-170,130,-130,11);  /*  TR  */ 
drawLine  (130,-130,100,-100,11);  /*  RP  */ 

fillOval(  1 00,- 1 00,3 , 1 6, aspect); 
fillOval(80,-170,3,16, aspect); 
fillOval(  130,-1 30,3, 16,aspect); 
fillOval(70,- 1 30,3 , 1 6,aspect ); 
fillOval(120,-170,3,16,aspect); 


write_horz_str(-300, 180,"  While  we  used  some  of  the  adjacency" 

"  information  to  construct"  ,31); 

write_horz_str(-300,160,"f,  we  have  not  checked  all  the  conditions" 

"  necessary  for  isomorphism.",31); 
write_horz_str(-300, 140, "First,  f  is  certainly  a  bijection.  Next" 


"  we  need  to  check  that  the  mapping",31); 
write_horz_str(-300,120,"{U,V)  ->  (f(U),f(V))  is  a  bijection  between" 

"  the  sets  of  edges.  We  can",31); 
write_horz__str(-300,100, "check  this  by  inspection  in  this  case," 

"  since  there  are  only  five  edges",31); 
write_horz_str(-300,80,"in  each  graph.  The  following  table  shows" 

"  the  correspondence  between  edges.",31); 
write_horz_str(- 100,45,"  { U,V }  |  f(U),f(V) )  ”,31); 

write_horz_str(- 1 00, 15,"  { A,D }  { P,R )  ",3 1 ); 

write_horz_str(- 100,0,"  { A,E )  { P,Q ) ",3 1 ); 

write_horz_str(- 1 00 ,- 1 5 ,"  { B  ,C )  { S  ,T ) "  ,3 1 ); 

write_horz_str(- 100,-30,"  { B,E)  ( S,Q }  ",3 1 ); 
write_horz_str(- 100,-45,"  { C,D )  {T,R }  ",3 1 ); 
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drawLine(- 1 1 0,25 , 1 1 0,25 , 1 1 ); 
drawLine(-l  10,55,1 10,55,11); 
drawLine(-l  10,-65,1 10,-65,1 1); 
drawLine(-l  10,55,-1 10,-65,1 1); 
drawLine(l  10,55,1 10,-65,1 1); 
wait("  Isomorphic  graphs  "); 
normal_exit(); 

} 

t *********************************************************** *****/ 

void  wait(char  title[]) 

I 

int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x11)  II  (mode  =  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writString(" Press  any  key  to  continue  WHITE, 0); 
if(waitkey(  )==ESC)  confirm_graph_exit(); 
cls(0); 

) 

j*> **********************************************************  ^ 

static  void  confurm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!«ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 


write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",3 1); 

I 

switch  (ch)  { 
case  ’y’:  normal_exit(); 
break; 

case  ’Y’:  normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 

default  :  break; 

I 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/+*+****+**************+**********★******************************+****** 


/*  this  function  handies  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


static  void  nomial_exit(void) 

I 

setMode(3); 

videoinit(); 

srestore(savescm); 

gotoxy_(crow.ccol ); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(O); 
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/*  PROGRAM  :  ex3_32.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  example  about  the  "Paths  and 
Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*1 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#inclu(,~  "cxlvid.h" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

char  adapt  ; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 
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FUNCTION  DEFINITIONS 

****************** ***************** **************/ 

void  wait(char  title LJ); 
static  void  exainple_3_32  (void); 
st  uic  void  confirm _graph_exit(void); 
static  void  normal_exit(void); 

/*,.************************************************* 
MAIN  PROGRAM 

**************************************************/ 

main() 

{ 

els  (1); 

adapt  =  getAdapter(); 

if  (adapt  ==  ’V’) 

♦ 

setMode(0xl2); 
cls( i k 


if  (adapt  ==  ’E\) 


setMode(16); 

cls(l); 


if  (adapt  ==  ’C’) 

I 

setMode(4); 

setCGAPalette(O); 

cls(l); 

I 

exaniple_3_32(); 

setMode(3); 


) 
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/****************************+****4unnn,mitmltl4tmi,m,tl4,m,+t4t4lllljll**nilt'm*4i* 

static  void  example_3_32(void) 

{ 

LINEWIDTH  =  3; 
cls(l); 

drawRect(-309,2 1 0,3 1 0,-200, 1 1 ); 
drawRect(- 1 50,1 00,-50,0, 11); 
drawLine  (-150,100,-100,150,11);  /*  BC  */ 
drawLine  (-100,150,-50,100,11);  /*  CD  */ 

aspect  =  1.0; 

fillOval(- 1 50, 1 00,3 ,1 6, aspect); 
fill  Oval(- 150, 0,3, 16, aspect); 
fillOval(-50,0,3, 16, aspect); 
fill0val(-50,100,3,16,aspect); 
fill0val(-100,150,3,16,aspect); 

drawLine  (100,150,50,100,11);  /*  QP  */ 
drawLine  (50,100,110,0,11);  /*  PT  */ 

drawLine  (1 10,0,150,100,1 1),  /*  TS  */ 

drawLine  (150,100,100,150,11);  /*  SQ  */ 
drawLine  (100,150,200,140,11);  /*  QR  */ 
drawLine  (200,140,1 10,0,1 1);  /*  RT  */ 


fillOval(  1 00, 1 50,3, 1 6, aspect); 
fi!10val(50,100,3,16 .aspect ) ; 
fillOval(l  10,0,3, 16, aspect); 
fill0val(l50,100,3,16,aspect); 
fillOval(200, 140,3, 16, aspect); 

write_horz_char  (-165,100,66,31);  /*  B  */ 
write_horz_char  (-165,0,65,31);  I*  \  */ 
wi  ite_horz_char  (-45,0,69,3 1 );  /*  E  */ 
write_horz_char  (-45,100,68,31);  /*  D  */ 
write_horz_char  (-100,165,67,31);  /*  C  */ 
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write_horz_char  (100,165,81,31);  /*  Q  */ 
write__horz_char  (35,100,80,31);  /*  P  */ 

write_horz_char  (1 15,-5,84,3 1);  /*  T  */ 

write Jiorz_char  (155,100,83,31);  /*  S  */ 
write_horz_char  (200,155,82,31);  /*  R  */ 

write_horz_char  (-100,-20,71,31);  /*  G  */ 
write_horz_char  (-93,-25,49,31);  /*  1  */ 
write_horz_char  ( 1 10,-20,7 1 ,3 1 );  /*  G  */ 
write_horz_char  (117,-25,50,31);  /*  2  */ 

write_horz_str(-300, 190, "Let’s  show  that  the  graphs  G1  and  G2" 

"  are  not  isomorphic.",31); 

write_horz_str(-300,-45,"We  cannot  easily  show  this  by  inspecting" 

"  the  graphs  because  each  of  the",31); 
write _horz_str(-300, -65, "graphs  is  connected  and  has  five  vertices" 

"  and  six  edges.  However,  before  we",31); 
write_horz_str(-300,-85, "start  checking  the  120  bijections  of  { A,B," 

"C,D,E)  onto  {P,Q,R,S,T),  let’s", 31); 
write_horz_str(-300,- 105, "look  at  the  way  the  graphs  are  put" 

"  together.  Gl  has  a  cycle  B,  C,  D,  B  of ’,31  ); 
write_horz_str(-300,-125, "length  3.  An  isoinorpJiisni  from  Gl  to  G2" 

"  must  map  this  cycle,  vertex  by  vertex,",31); 
write_horz_str(-300,- 145, "onto  a  cycle  in  G2  of  the  same  length.  But" 

"  G2  has  no  cycle  of  length  3,  so",31 ); 
write_horz_str(-300, -165, "there  can  be  no  isomorphism  of  Gl  onto" 

"  G2.",31); 

wait(”  Not  isomorphic  graphs  ”); 
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/♦I*.*********************************************************************/ 


void  wait(char  title[] ) 

I 

int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  =  Oxl  1)  II  (mode  =  0x12)) 
line  =  29; 


else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writString(”Press  any  key  to  continue  WHITE.O); 

getch(); 

cls(0); 


/***************************************** *****************************+/ 
static  void  conflrm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80, 210, "Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

wliile  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  : Y’)  II  (ch  ==  ’N')))  { 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getch  (); 

I 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinit(); 
nonnal_exit(); 
break; 
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case  ’Y’:  setMode(3); 
videoinit(); 
nonnal_exit(); 
break; 

case  ’n’: 

break; 

case  ’N’: 

break; 

default :  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/***********************************************************************y 

/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


***%*********************%**%*******************************%********** 


/ 


static  void  normal_exit(void) 


/ 


srestore(savescni); 
gotoxy_(crow,ccol ); 
if(_jmouse)  mshidecur(); 
showcurf); 
exit(0); 

I 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:pql.c 
:  Yavuz  BAS 
:  Feb.  4,  1990 
:  Mar.  5,  1990 


DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


I*  ****************************** ***************************J 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt.  Ch; 
int  color  =  2; 
int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait(char  title[]); 

void  question_l  (void); 

static  void  conflrm_graph_exit(void); 

static  void  nonnal_exit(void); 


MAIN  PROGRAM 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 


setMode(16); 

cls(l); 

) 

if  (adapt  ==  ’C’) 

I 

setMode(4); 
setCG  APalette(0 ); 
cls(l); 

} 

question_l(); 

setMode(3); 
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/*********************************  *  *************  *%****!(<*  ****************/ 
static  void  question_l(void) 

( 

UNEWIDTH  =  3; 

cls(l); 

drawRect(-309, 210,310, -200,1 1); 

write_horz_str(-300,160,"  Determine  if  the  graph  in  the  following" 

"  Figure  is  a  graph.",31); 

aspect  =  1 .0; 

fill0val(-50,100,3,16,aspect); 

fillOval(50, 100,3, 16,  aspect); 

fillOval(0,60,3 , 1 6,aspect); 

write_horz_str(-300,30,"  Enter  your  choice  as  y  or  n  — >",31); 

Ch  =  waitkeyO; 

if(Ch=ESC)  confiim_graph_exit(); 

while  (!((Ch  ==  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  =  ’Y’)  II  (Ch  =  ’N’)))  { 
write_horz_str(0,30,"  Please  type  y  or  n",31); 

Ch  =  getch  (); 

if  ((Ch  ==  y )  II  (Ch  =  ’Y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’N’)) 
write_horz_str(0,30,"  ”,31); 

} 

switch  (Ch)  { 

case  y  :write_horz_str(-30,30,"  y  ”,31); 

write_horz_str(-30,10,"  Yes,  it  is  a  graph  that  consists", 31 ); 
write_horz_str(-30,-10,"  of  three  distinct  vertices  but", 31); 
write_horz_str(-30,-30,"  no  edges. ",3i); 
break; 

case  ’Y’  :write_horz_str( -30,30,"  Y  ",31); 

write_horz_str(-30,10,"  Yes,  it  is  a  graph  that  consists",31); 
write_horz_str(-30,-10,"  of  three  distinct  vertices  but", 31); 
write_horz_str(-30,-30,"  no  edges.",31); 
break; 

case  ’n’  :wnte_horz_str(-30,30,"  n  ",3 1 ); 

write_horz_str(-30,10,"  Yes,  it  is  a  graph  that  consists",31); 
write_horz_str(-30,-10,"  of  tliree  distinct  vertices  but", 31); 
write_horz_str(-30,-30,"  no  edges.",31); 
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break; 

case  ’N’  :write_horz_str(-30,30,"  N  ",31); 

write_horz_str(-30,10,"  Yes,  it  is  a  graph  that  consists",31); 
write_horz_str(-30,-10,"  of  three  distinct  vertices  but",31); 
write_horz_str(-30,-30,"  no  edges.", 31); 
break; 

default  :  break;  ) 
wait("Exercise  1"); 


} 


void  wait(char  title[]) 

I 

int  tab,width4ine,mode; 
mode  =  getMode(& width); 
if  ((mode  ==  Oxl  1)  II  (mode  ==  0x12)) 
line  =  29; 
else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStrmgC'Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm __graph_exit(); 
cis(0), 


static  void  confirm__graph__exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kb!ist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write  Jiorz_str(-300,-2 10, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 
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while  (!((ch  ==  y )  II  (ch  =  V)  II  (ch  =  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-2 1 0,"  ”,31); 

} 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ”,31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ”,31); 

break; 

default :  break; 

I 

if(_mouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  liidden  hot  keys  */ 

) 

/I***********************************************************************/ 

/*  this  function  handles  normal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  normal_exit(void) 

i 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 

) 
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/*  PROGRAM  :pq2.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*1 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h” 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


********************************************************/ 


char  adapt,  Ch; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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^ ***************************** ******************* 
FUNCTION  DEFINITIONS 

*************************************************  ^ 


void  wait(char  title  []); 

void  question_2  (void); 

static  void  confirm _graph_exit(void); 

static  void  nonnal_exit(void); 


/************************************************** 
MAIN  PROGRAM 


main() 

I 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 


if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(l); 


if  (adapt  ==  ’C’) 


setMode(4); 

setCGAPalette(O); 

cls(l); 

) 

question_2(); 

setMode(3), 


} 


/*********************  ********  *****************  ****  **************  *******/ 


static  void  question_2(void) 

I 


LINEW1DTH  =  3; 


cls(l); 

drawRect(-309, 210, 3 10,-200,1 1 ); 

write_horz_str(-300,160,"  Detennine  if  the  multigraph  in  die  following" 

"  Figure  is  a  graph.", 31); 

LINE  WIDTH  =  1; 


aspect  =  0.5; 

drawOval(0, 1 20,20, 1 1  .aspect); 
draw0val(0,0,20,l  1  ,aspect); 
LINEWIDTH  =  3; 
drawLine(40. 1 20,40,0, 1 1 ); 


aspect  =  1 .0; 

fillOval(-40, 1 20,3 ,1 6,aspect); 
fillOval(-40, 0,3, 16, aspect); 
fillOval(40, 1 20,3 , 1 6,aspect); 
fillOval  (40,0,3, 1 6,aspect); 

write_horz_str(-300,-30,"  Enter  your  choice  as  y  or  n  — >",31 ); 
Ch  =  waitkey(); 

if(Ch=ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  V)  II  (Ch  ==  ’n’)  I!  (Ch  =  ’Y’)  II  (Ch  =  ’N’)))  { 
write_horz_str(0,-30,"  Please  type  y  or  n",31), 

Ch  =  getch  (); 

if  ((Ch  ==  y )  II  (Ch  =  ’Y’)  II  (Ch  ==  V)  II  (Ch  =  ’N’)) 
write_horz_str(0,-30,"  ",31); 


switcli  (Ch)  { 

case  y  :write_horz_str(-30,-30,"  y  ",31); 

write_horz_str(-30,-50,"  No,  it  is  not  a  graph  because", 31 ); 
write_horz_str(-30,-70,"  there  are  parallel  edges.", 31); 
break; 
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case  ’Y’  :wite_horz_str(-30,-30,"  Y  ”,31); 

write_horz_str(-30,-50,"  No,  it  is  not  a  graph  because",31); 
write_horz_str(-30,-70,"  there  are  parallel  edges  ", 31); 
break; 

c;tse  V  :write_horz_str(-30,-30,"  n  ",31); 

write_horz_str(-30,-50,"  No,  it  is  not  a  graph  because",31); 
write_horz_sti  (-30,-70,"  there  are  parallel  edges.",31); 
break; 

case  ’N’  :write_hoi  str( -30,-30,"  N  ”,31); 

write_horz_str(-30,-50,"  No,  it  is  not  a  graph  because",31); 
write_horz_str(-30,-70,"  there  are  parallel  edges. ”,31); 
break; 

default  :  break;  } 
wait("Exercise  2"); 

} 

/***********************************************************************/ 

void  vvait(char  titlel]) 

I 

uit  tab, width, line, mode; 
mode  =  ge  tMode(&  width ); 
if  ((mode  ==  Oxl  1)  II  (mode  ==  0x12)) 
line  =  29: 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(tille,WHITE,0); 
tab  =  (widtli  -  33  )/2; 
gotoxy(tab.line); 

writStringt "Press  any  key  to  continue  WHITE, 0); 

if(waitkey(  )==ESC)  confinn_graph_exit(); 
cls(0); 
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^t*********************************************************************/ 

static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_l  *kblist; 
char  ch; 

kb!isi=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,''Quit  process,  are  you  sure  (y/n)?”,79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  II  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  { 
writejiorz_str(30,-210,"  Please  type  y  or  n’’,79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ’,31); 

) 

switch  (ch)  { 

case  ’y":  setMode(3); 
videoinit(); 
norrml_exit(); 
break; 

case  Y’:  setMode(3); 
videoinit(); 
nonnal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ”,3 1 ); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ”,3 1 ); 

break; 

default :  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 
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/*********************************************************************•(<*/ 
/*  this  function  handles  normal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/***********************************************************************/ 
static  void  normal_exit(void) 

I 

srestore(savescm); 
gotoxy_(crow  ccol); 
if(_mt>use)  mshidecur(); 
showcurf); 
exit(0); 

) 
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/*  PROGRAM  :pq3.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h” 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

/******************************************************** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
********************************************************/ 


char  adapt,  Ch; 

int  color  =  2; 

int  LINEW1DTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait(char  title|J); 

void  question_3  (void); 

static  void  confirm_graph_exit(void); 

static  void  normal_exit(void); 


/************************************************ 
MAIN  PROGRAM 

************************************************/ 


niain() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(l); 

) 

if  (adapt  ==  'C') 

I 

setMode(4); 
setCGAPalette(O); 
cls(l ); 

I 

question_3(); 

setMode(3); 


I 


static  void  question_3(void) 

( 

LINEW1DTH  =  3; 


cis(l); 

drawRect(-309,210, 3 10,-200,1 1); 

write_horz_str(-300,160,"  Determine  if  the  multigraph  in  the  following" 

”  Figure  is  connected.”,31); 
drawLine(20, 1 20,20,20, 11); 
drawLine(-20, 120,-20,20,1 1); 
aspect  =  1 .0; 

fillOval(20, 1 20,3 , 1 6, aspect); 
fiUOval(- 20, 120,3 , 1 6, aspect ); 
fillOval(20,20,3, 16, aspect); 
fil!0val(-20,20,3,16,aspect); 


write  Jiorz_str(-300, -30,”  Enter  your  choice  as  y  or  n  — >",31); 

Ch  =  waitkeyO; 

if(Ch==ESC )  confinn_graph_exit(); 

while  (!((Ch  ==  ’y’)  I!  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  =  ’N’)))  { 
write_horz_str(0,-30,"  Please  type  y  or  n',31); 

Ch  =  getch  (); 

if  ((Ch  ==  y )  II  (Ch  =  ’Y’)  II  (Ch  ==  V)  II  (Ch  =  ’N’)) 
write_horz_str(0,-30,"  ",3 1 ); 

) 

switch  (Ch)  | 

case  ,y,:write_horz_str(-30,-30,"  y  ",31); 

wn:e_horz_str(-30,-50,"  No,  it  is  not  connected,  because", 31 ); 
write_horz_str(-30,-70,"  there  are  two  different  components",31); 
write_horz_str(-30,-90,"  that  are  not  connected  to  eachother",31); 
break; 

case  ’Y’  :write_horz_str(-30,-30,"  Y  ”,31); 

write_horz_str(-30,-50,"  No,  it  is  not  connected,  because”,31); 
write_horz_str(-30,-70,"  there  are  two  different  components",31); 
write  _horz_str(-30, -90,"  that  are  not  connected  to  eachother",31 ); 
break; 
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case  ’n’  :write_horz_str(-30,-30,"  n  ”,31); 

write_horz_str(-30,-50,"  No,  it  is  not  connected,  because",3 1 ); 
write_horz_str(-30,-70,"  there  are  two  different  components",31); 
write_horz_str(-30,-90,"  that  are  not  connected  to  eachother",31); 
break; 

case  ’N’  :write_horz_str(-30,-30,"  N  ",31); 

write_horz_str(-30,-50,"  No,  it  is  not  connected,  because", 31); 
write_horz_str(-30,-70,"  there  are  two  different  components",31); 
write_horz_str(-30,-90,"  that  are  not  connected  to  eachother",31); 
break; 

default  :  break;  } 
wait("Exercise  3"); 

> 


/+**+******++****+*****++******+***********************++**+*+****+**+**/ 


void  wait(char  title[] ) 

I 

int  tab, width,line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Ox  11)11  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24: 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tar  0); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringC Press  any  key  to  continue  WHITE, 0); 

if(waitkey(  )==ESC)  confirm_graph_exit(); 
cls(0); 
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^****** **************************************************** *************/ 
static  void  confirm _graph_exit(  void ) 

I 


struct  _onkey_t  *kblist; 
char  ch; 

kbiist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300, -210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  ’y’ )  I!  (ch  =  V)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-2 10,"  "  ,3 1 ); 

I 

switch  (ch )  ( 

case  ’y’:  setMode(3); 
videoinitO; 
nonnal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinitO; 
nonnal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",3 1 ); 

break; 

case  ’N’:write_horz_str(-300,-210 ,"  ",31); 

break; 

default ;  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


354 


,/***********************************************************************/ 


/*  this  function  handies  normal  termination.  The  original  screen  and  cursor 
/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0. 

/******************************4,***+**+***+mt,4,*n,mi<i,mmlmi,mmj 


*/ 

*/ 


static  void  nomial_exit(void) 

I 


srestore(savescm); 
gotoxy_(crow  ,ccol); 
if(jmouse)  mshidecur(); 
showcur(); 
exit(0); 

) 
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/*  PROGRAM  :  pq4.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 1990 
REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C  com¬ 
piler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


"gtools.h" 

"gdraws.h" 

"colors.h" 

"cxldef.h" 

"cxlkey.h" 

"cxlmou.h" 

"cxlstr.h" 

"cxlvid.h" 

"cxlwin.h" 


/********************************************************* 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
*************$*******************************************/ 


char  adapt,  Ch; 
int  color  =  2; 
int  LINEWIDTH=1 ; 

unsigned  long  int  PATTERN=0xFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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/*************************************************** 
FUNCTION  DEFINITIONS 

*************************************************** j 


void  wait(char  title[]); 

void  question_4  (void); 

static  void  confirm_graph_exit(void); 

static  void  normal_exit(void); 


/************************ ************************** 
MAIN  PROGRAM 

**************************************** *********/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  == ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

question_4(); 

setMode(3); 

) 
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/ 


***********************************************************************/ 


static  void  question_4(void) 

{ 

LINEWIDTH  =  3; 
cls(l); 

drawRect(-309, 210, 310, -200,1 1); 

write_horz_str(-300,160,"  Determine  if  the  multigraph  in  the  following" 

"  Figure  is  connected.", 31); 
drawLine(0, 120,-40,70, 1 1 ); 
drawLine(-40,70, 0,20,1 1); 


aspect  =  1.0; 

drawOval(20, 1 20,20, 1 1  ,aspect); 
draw0val(20,20,20,l  1, aspect); 
fillOval(0, 1 20,3, 1 6,aspect); 
fillOval(-40,70,3,16,aspect); 
fillOval(0,20,3, 1 6,aspect); 
fillOval(40,20,3, 1 6,aspect); 
fillOval(40, 1 20,3, 1 6,aspect); 

write_horz_str(-300,-30,"  Enter  your  choice  as  y  or  n  —>”,31); 
Ch  =  waitkeyO; 

if(Ch==ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)))  { 
write_horz_str(0,-30,"  Please  type  y  or  n",31); 

Ch  =  getch  0; 

if  ((Ch  ==  y )  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’N’)) 
write_horz_str(0,-30,"  ”,31); 


switch  (Ch)  { 

case  y:write_horz_str(-30,-30,”  y  ",31); 

write_horz_str(-30,-50,"  Yes,  it  is  connected  because”,31); 
write_horz_str(-30,-70,"  every  two  vertices  of  the  graph  ",31); 
write_horz_str(-30,-90,"  are  connected  to  eachother",31); 
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break; 

case  *Y*  :write_horz_str(-30,-30,"  Y  ",31); 

write_horz_str(-30,-50,"  Yes,  it  is  connected  because",31); 
write_horz_str(-30,-70,"  every  two  vertices  of  the  graph",31); 
write_horz_str(-30,-90,"  are  connected  to  eachother",31); 
break; 

case  ’n’  :write_horz_str(-30,-30,"  n  ”,31); 

write_horz_str(-30,-50,"  Yes,  it  is  connected  because",31); 
write_horz_str(-30,-70,"  every  two  vertices  of  the  graph",31); 
write_horz_str(-30,-90,"  are  connected  to  eachother",31); 
break; 

case  ’N’  :write_horz_str(-30,-30,"  N  ”,31); 

write_horz_str(-30,-50,"  Yes,  it  is  connected  because",31); 
write_horz_str(- 30,-70,"  every  two  vertices  of  the  graph",31); 
write_horz_str(- 30,-90,"  are  connected  to  eachother",31); 
break; 

default  :  break;  } 

wait("Exercise  4"); 

} 

/ 


**********************************************************************  Jty 

void  wait(char  title[]) 

{ 


int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x1 1)  II  (mode  ==  0x12)) 
line  =  29; 


else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writString("Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm _graph_exit(); 
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cls(0); 


) 

/ 


***********************************************************************/ 


static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(- 300,-210, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  "31); 

} 

switch  (ch)  ( 
case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  V:write_horz_str(-300,-210,"  "31); 

break; 

case  ’N’:write„horz_str(-300,-210,"  "31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 
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/ 


*4 It*********************************************************************/ 


/*  this  function  handles  nonnal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

t 

/ 

*********************************** *v***** ********** ****************** ^ . 


static  void  iiormal_exit(void) 

{ 


srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 


} 


361 


/*  PROGRAM  :  pq5.c 
AUTHOR  :  Yavuz  BAS 
DATE  :  Feb.  4, 19S0 
REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  co  iiains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C  com¬ 
piler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

♦include  "cxldef.h" 

♦include  "cxlkey.h" 

♦include  "cxlmou.h" 

♦include  "cxlstr.h" 

♦include  "cxlvid.h" 

♦include  "cxlwin.h" 

/******.,'.***************************************,>'  ********** 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIG  ,TS 
****************************************  ***************** **^ 


char  adapt,  Ch; 

int  color  = 

int  LINEWIDTH- 1 ; 

-nsigned  long  int  HATTER  N^OxFFFFFFFH; 
double  aspect; 

static  i.  ’  *savescm,crow,ccol; 
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^* ***************************************  ********** 
FUNCTION  DEFINITIONS 


**************************************************/ 


void  wait(char  titlef]); 

void  question_5  (void); 

static  void  confirm _graph_exit(void) ; 

static  void  normal_exit(void); 


p************ *****************  ********************* 


MAIN  PROGRAM 


************************************************ **^ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ”V’) 

{ 

setMode(0xl2); 

cls(l); 


if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

) 

question_5(); 

setMode(3); 
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/ 

/ 


♦a*********************************************************************/ 

static  void  question_5(void) 

{ 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,210, 310, -200,1 1); 

write_horz_str(-300,160,"  Determine  if  the  multigraph  in  the  following" 

"  Figure  has  an  Euler  path.",31); 
drawLine(0, 1 00, 1 00, 1 00, 1 1 ); 
drawLine(0,100, 100,50,1 1); 
drawLine(0,100,100,0,l  1); 

drawLine(100,100,0,50,l  1); 
drawLine( 100, 100,0, 0,11); 

drawLine(0,50, 100,50,1 1); 
drawLine(0,50, 100,0,1 1); 

drawLine( 1 00,50,0,0, 1 1 ); 

drawLine(0,0, 100,0,1 1); 
aspect  =  1 .0; 

fill  Oval  (0, 1 00,3 , 1 6,aspect); 
fillOval(l  00, 100,3, 1 6,aspect); 
fillOval(  100,50,3, 16,  aspect); 
fillOval(0,50,3, 16, aspect); 
fill  Oval(0, 0,3 , 1 6,aspect); 
fillOval(  1 00,0,3, 1 6, aspect); 

write_horz_str(-300,-30,"  Enter  your  choice  as  y  or  n  — >",31); 

Ch  =  waitkeyO; 

if(Ch==ESC)  confirm_graph_exit(); 

while  (?((Ch  ==  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)))  { 
write_horz_str(0,-30,"  Please  type  y  or  n”,31); 

Ch  =  getch  (); 
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if  ((Ch  =  V)  II  (Ch  ==  ’Y’)  II  (Ch  ==  V)  II  (Ch  ==  ’N’)) 
write_horz_str(0,-30,"  ”,31);  } 

switch  (Ch)  { 

case  ’y’:write_horz_str(-30,-30,"  y  ",31); 

write_horz_str(-30,-50,"  No,  it  does  not  have  an  Euler",31); 
write_horz_str(-30,-70,"  path,  because  you  cannot  find  a",31); 
write_horz_str(- 30,-90,"  path  that  includes  exactly  once",31); 
write_horz_str(-30,-110,"  all  the  edges  of  the  graph.",31); 
break; 

case  *Y’  :write_horz_str(-30,-30,"  Y  ",31); 

write_horz_str(-30,-50,"  No,  it  does  not  have  an  Euler", 31); 
write_horz_str(-30,-70,"  path,  because  you  cannot  find  a",31); 
write_horz_str(-30,-90,"  path  that  includes  exactly  once",31); 
write_horz_str(-30,-l  10,"  all  the  edges  of  the  graph. ",31); 
break; 

case  ’n’  :write_horz_str(-30,-30,"  n  ",31); 

write_horz_str(-30,-50,"  No,  it  does  not  have  an  Euler",31); 
write_horz_str(-30,-70,"  path,  because  you  cannot  find  a",31); 
write_horz_str(- 30,-90,"  path  that  includes  exactly  once",31); 
write_horz_str(- 30,-1 10,"  all  the  edges  of  the  graph.", 31); 
break; 

case  ’N’  :write_horz_str(-30,-30,"  N  ",31); 

write_horz_str(-30,-50,"  No,  it  does  not  have  an  Euler",31); 
write_horz_str(-30,-70,"  path,  because  you  cannot  find  a",31); 
write_horz_str(- 30,-90,"  path  that  includes  exactly  once",31); 
write_horz_str(- 30,-1 10,"  all  the  edges  of  the  graph.",31); 
break; 

default  :  break;  } 

wait("Exercise  5"); 

) 
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/ 

***********************************************************************/ 
void  wait(char  titlc[]) 

{ 

int  tab, width,line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxll)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title,  WHITE  ,0) ; 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringO'Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm__graph_exit(); 
cls(0); 

1 

/ 

***********************************************************************/ 
static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_  t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
ift_mouse&MS_CURS)  mshidecur(); 

write  Jiorz_s;r(-300,-2 10, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,“  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ”,3 1 ); 

} 

switch  (ch)  ( 
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case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-3(X),-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-3(X),-210,"  ”,31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/ 

***********************************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  C.  */ 

/ 


***********************************************************************/ 


static  void  normal_exit(void) 

{ 


srestore(savescm); 

gotoxy_(crow,ccol); 

if(jmouse)  mshidecur(); 

showcur(); 

exit(O); 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  pq6.c 
:  Yavuz  BAS 
:  Feb.  4, 1990 
:  Mar.  5, 1990 


DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C  com¬ 
piler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


y*  *********************************************** ********** 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt,  Ch; 
int  color  =  2; 
int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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/************************************************** 


FUNCTION  DEFINITIONS 


*************************************************/ 


void  wait(char  title[]); 
void  question_6  (void); 
void  deiay_  (unsigned  duration); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 


/************************************************* 


MAIN  PROGRAM 


******************* *****************************/ 

main() 

{ 

els  (1); 


adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 


setMode(0xl2); 

cls(l); 


} 

if  (adapt  ==  ’E’) 

{ 


setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 


setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

question_6(); 

setMode(3); 
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/ 

***********************************************************************/ 
static  void  question_6(void) 

{ 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,210,3 10,-200, 11 ); 

write_horz_str(-300, 160,"  Determine  if  the  multigraph  in  the  following" 

"  Figure  has  an  Euler  path.",31); 
drawLine(-l  10,100,40,100,11);  /*  c  */ 
drawLine(- 110, 100,- 140,60, 11);  /*  b  */ 
drawLine(- 140,60, 30,50, 11);  /*  n  */ 

drawLine(30,50,40,100,l  1);  /*  p  */ 

drawLine(30, 50,30, -40, 1 1 );  /*  f  */ 

drawLine(30,-40, 100,30, 11);  /*  i  */ 

drawLine(30,50, 100,30, 11);  /*  e  */ 

drawLine(40,100,100,30,l  1);  /*  d  */ 

drawLine(30,-40,-140,25,l  1);  /*  h  */ 

drawLine(- 140,25, -140,60, 11);  /*  g  */ 

aspect  =  .30; 

LINEWIDTH  =  1 ; 

draw  Arc(65, -5, 37,2500,730, 1 1  ,aspect); 
aspect  =  2.0; 

draw  Arc(- 1 25,76,38,400,2000, 1 1  .aspect); 
aspect  =  1.0; 

drawOval(58, 1 1 8,25, 1 1  .aspect); 
fiUOval(- 1 1 0, 1 00,3, 1 6, aspect); 

fillOval(40, 100,3, 1 6,aspect); 
fillOval(- 140,60,3, 1 6, aspect); 
fillOval(30,50,3, 1 6,aspect); 
fillOval(30,-40,3, 1 6,aspect); 
fillOval(  100,30,3, 1 6,aspect); 
filIOval(- 140,25,3, 1 6,aspect); 
write_horz_char(30,-50,90,31);  /*  Z  */ 

write_horz_char(  105,25,89,31);  /*  Y  */ 

write_horz_char(10,70,88,31);  /*  X  */ 

write_horz_char(50, 1 10,87,31);  /*  W  */ 

write_horz_char(- 100,1 15,86,31);  /*  V  */ 
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write_horz_char(- 160,60,85,31);  /*  U  */ 

write_horz_char(- 150,25,82,31);  /*  R  */ 

write_horz_char(- 160,90,97,31);  /*  a  */ 

write_horz_char(-120,80,98,31);  /*  b  */ 

write_horz_char(-60, 11 5,99,31);  /*  c  */ 

write_horz_char(80, 75,100, 31);  I*  d  */ 

write_horz_char( 60,35, 10 1,31);  /*  e  */ 


write_horz_char(40, 5, 102,31);  /*  f  */ 

write_horz_char(- 135,48, 103,31);  /*  g  */ 

write_horz_char(-45,- 18, 104,31);  /*  h  */ 

write_horz_char(60, 10,105, 31);  /*  i  */ 

write_horz_char(160,10, 106,31);  /*  j  */ 

write_horz_char(75,l 50, 109,31);  /*  m  */ 

write_horz_char(-55,45, 110,31);  /*  n  */ 

write_horz_char(40, 75,1 12,31);  /*  p  */ 


write_horz_str(-300,-70,"  Enter  your  choice  as  y  or  n  —  >",31); 
Ch  =  waitkeyO; 

if(Ch==ESC)  confirm_graph_exit(); 

whUe  (!((Ch  ==  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)))  { 
write_horz_str(0,-70,"  Please  type  y  or  n",31); 

Ch  =  getch  (); 

if  ((Ch  ==  y)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’N’)) 
write_horz_str(0,-7  0, "  ”,31); 

} 

switch  (Ch)  { 

case  ’y’;wme_horz_str(-30,-70,"  y  ";3i): 

write_horz_str(- 30,-90,"  Yes,  it  has  an  Eulerian  path,",31); 
write_horz_str(-30,-l  10,"  now  press  a  key  to  see  how.",31); 
break; 

case  ’Y’  :write_horz_str(-30,-70,"  Y  ”,31); 

write_horz_str(-30,-90,"  Yes,  it  has  an  Eulerian  path,",31); 
write_hore_str(- 30,-1 10,"  now  press  a  key  to  see  how.",31); 
break; 


case  ’n’  :write_horz_str(-30,-70,"  n  ",31); 

write_horz_str(- 30,-90,"  Yes,  it  has  an  Eulerian  path,",31); 
write_horz_str(-30,-l  10,"  now  press  a  key  to  see  how.",31); 


371 


break; 

case  ’N’  :write_horz_str(-30,-70,"  N  ",3 1); 

write_horz_str(- 30,-90,"  Yes,  it  has  an  Eulerian  path,",31); 
write_horz_str(-30,-110,"  now  press  a  key  to  see  how.", 31); 
break; 

default  :  break;  } 

if(waitkey()==ESC)  confirm_graph_exit(); 
aspect  =  2.0; 

draw  Arc(-125,76,38,400, 2000,28, aspect); 
delay_(36); 

LINE  WIDTH  =  3; 

drawLine(- 140,60,- 110,100,28);/*  b  */ 
delay_(36); 

drawLine(- 110,100,40,100,28);  /*  c  */ 
delay_(36); 

LINE  WIDTH  =  1; 
aspect  =  1.0; 

drawOval(58,l  18,25,28,aspect); 
delay  _(36); 

LINE  WIDTH  =  3; 

drawLine(40,100, 100,30,28);  /*  d  */ 
delay_(36); 

drawLine(100, 30,30,-40, 28);  /*  i  */ 
delay_(36); 

aspect  =  .30; 

LINEWIDTH  =  1; 

draw  Arc(65 ,-5,37 ,2500,7 30,28 .aspect) ; 
delay_(36); 

LINEWIDTH  =  3; 

drawLine(100,30,30,50,28);  /*  e  */ 
delay_(36); 
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drawLine(30,50,30,-40,28);  /*  f  */ 

delay_(36); 

drawLine(30,-40,- 140,25,28);  l*  h  */ 
delay_(36); 

drawLine(- 140,25,- 140,60,28);  /*  g  */ 
delay_(36); 

drawUne(- 140,60,30,50,28);  /*  n  */ 
delay_(36); 

drawLine(30, 50 ,40, 100,28);  /*  p  */ 

delay_(36); 

write_horz_str(-30,-130,"  Namely,  starting  from  vertex  V,",31); 
write_horz_str(-30,-150,"  a,  b,  c,  m,  d,  j,  i,  e,  f,",31); 
write_horz_str(-30,-170,"  h,  g,  n,  p  is  an  Euler  path.",31); 
wait("Exercise  6"); 
cls(0); 


***********************************************************************/ 
void  wait(char  title[]) 


int  tab,width,line,mode; 
mode  =  getMode(& width); 
if  ((mode  ==  0x1 1)  II  (mode  ==  0x12)) 
line  =  29; 
else 

tine  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writString("Press  any  key  to  continue  WHITE, 0); 
if(waitkey()==ESC)  confirm_graph_exit(); 
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********************lM*********** **************************************/ 

static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(- 300,-2 10, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  Y)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31); 

} 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinitO; 
norinai_exit()', 
break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ,n’:write_horz_str(-300,-210,”  ",31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",3 1 ); 

break; 

default :  break; 

) 

if(_mouse&MS_CTJRS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 
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*Itt****************  *****************************************************  ^ 

■*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/ 

***********************************************************************/ 
static  void  normal_exit(void) 


srestore(savescm) ; 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(O); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  pq7.c 
:  Yavuz  BAS 
:  Feb.  4,  1990 
:  Mar.  5,  1990 


DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C  com¬ 
piler  Version  2.0. 

*/ 

#include  <stdio.h> 

#inclcde  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h” 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h” 

#include  "cxlwin.h" 


/*****************************************************^***** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
************************************** **********************^ 


char  adapt,  Ch; 
int  color  =  2; 
int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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^************************************************* 
FUNCTION  DEFINITIONS 

*************************************************/ 


void  wait(char  title[]); 
void  question_7  (void); 
void  delay_  (unsigned  duration); 
static  void  confirm_graph_exit(void); 
static  void  normaI_exit(void); 


/************************************************** 
MAIN  PROGRAM 

4^******************* **************** ************/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

) 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

question_7(); 

setMode(3); 

) 
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/ 


***********************************************************************/ 


static  void  question_7(void) 

{ 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(- 309 ,210,310, -200,1 1); 

write_horz_str(-300,160,"  Determine  if  the  graph  in  the  following" 

"  Figure  has  an  Euler  circuit. ”,31); 
drawLine  (-100, 100,-120,30, 1  i );  r  AD  */ 
drawLine  (-120,30,-70,70,1 1);  /*  DC  */ 

drawLine  (-70,70,- 1 30,70, 1 1 );  /*  CB  */ 

drawLine  (- 1 30,70,-80,30, 11);  /*  BE  */ 

drawLine  (-80,30,-100,100,1 1);  /*  EA  */ 


aspect  =  1.0; 

fillOval(- 100, 100,3, 1 6,aspect); 
fillOval(-120,30,3,16,aspect); 
fillOval(-70,70,3, 1 6,aspect); 
filIOval(- 1 30,70,3, 1 6, aspect); 
fillOval(-80,30,3,16,aspect); 

write_horz_char(- 100, 120,65,31);  /*  A  */ 
write_horz_char(- 145,70,66,31);  /*  B  */ 
write_horz_char(-65,70,67,31);  /*  C  */ 

write_horz_char(- 135,30,68,31);  /*  D  */ 
write_horz_char(-75,30,69,31);  /*  E  */ 

write_horz_str(- 300,-70,"  Enter  your  choice  as  y  or  n  — >",31); 
Ch  =  waitkey(); 

if(Ch==ESC)  confirm  _graph_exit(); 

while  (!((Ch  =  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)))  { 
write_horz_str(0,-70,"  Please  type  y  or  n",31); 

Ch  =  getch  (); 

if  ((Ch  ==  y )  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’N’)) 
write_horz_str(0,-70,"  ",31); 
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} 

switch  (Ch)  { 

case  ’y,:write_horz_str(-30,-70,"  y  ’’,31); 

write_horz_str(- 30,-90, "  Yes,  it  has  an  Euler  circuit,",31); 
write_horz_str(- 30,-1 10,"  now  press  a  key  to  see  how.",31); 
break; 

case  ’Y’  :write_horz_str(-30,-70,"  Y  ”,31); 

write_horz_str(- 30,-90,"  Yes,  it  has  an  Euler  circuit,",31); 
write_horz_str(-30,-ll0,"  now  press  a  key  to  see  how.",31); 
break; 

case  ’n’  :write_horz_str(-30,-70,"  n  ”,31); 

write_horz_str(-30,-90,"  Yes,  it  has  an  Euler  circuit,",31); 
write_horz_str(- 30,-1 10,"  now  press  a  key  to  see  how. ”,31); 
break; 

case  ’N*  :write_horz_str(-30,-70,"  N  ”,31); 

write_horz_Sir(-30,-90,"  Yes,  it  has  an  Euler  circuit,’’,31); 
write_horz_str(-30,-l  10,"  now  press  a  key  to  see  how.”,31); 
break; 

default  :  break;  } 

if(waitkey()==ESC)  confxrm_graph_exit(); 
drawLine  (-100,100,-120,30,28);  /*  AD  */ 
delay_(36); 

drawLine  (-120,30,-70,70,28);  /*  DC  */ 

delay_(36); 

drawLine  (-70,70,- 1 30,70,28);  /*  CB  */ 

delay_(36); 

drawLine  (- 1 30,70,-80,30,28);  /*  BE  */ 

delay_(36); 

drawLine  (-80,30,-100,100,28);  /*  EA  */ 

write_horz_str(-30,-130,"  Namely,  starting  from  vertex  A,",31); 
write_horz_str(-30,-150,"  and  following  the  vertices  D,  C",31); 
write_horz_str(-30,-170,"  B,  E,  A  gives  us  an  Euler  circuit.",31); 
wait("Exercise  7"); 
cls(0); 

} 
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/ 


***********************************************************************/ 


void  wait(char  title[]) 

{ 

int  tab,width,  line,  mode; 
mode  =  getMode(&width); 
if  ((mode  —  Oxl  1)  II  (mode  ==  0x12)) 
line  =  29; 
else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 

gotoxy(tab.O); 

writS  tring(title,WHITE,0) ; 

tab  =  (width  -  33)/2; 

gotoxy(tab,line); 

writStringC'Press  any  key  to  continue  WHITE.O); 
if(waitkey()==ESC)  confirm_graph_exit(); 

} 

/ 


***********************************************************************/ 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(__mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  =  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31); 

} 

switch  (ch)  { 
case  ’y’:  setMode(3); 
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videoinitO; 

normal_exit(); 

break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-3(X),-210,"  ",31); 

break; 

case  ’N’rwriteJiorz-StrOSOO.^lO,"  ",31); 

break; 

default :  break; 

} 

ifCmouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  key'  */ 

) 

/ 


***********************************************************************/ 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/ 


*********************************************************:**************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 
gotoxy_(crow,ccol) ; 
ifCjnouse)  mshidecur(); 
showcur(); 
exit(0); 

) 
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/*  PROGRAM  :  pq8.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4, 1990 

REVISED  :  Mar.  5, 1990 


DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C  com¬ 
piler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors,  h" 

#include  "cxldef.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


^tt********************************************************* 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

i*********************************************************/ 


char  adapt,  Ch; 
int  color  =  2; 
int  LENEWIDTH=i; 

unsigned  long  int  PALI TiRN=OxFFFFFFF F; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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^* ************************************************* 
FUNCTION  DEFINITIONS 

************************************************* i 


void  wait(char  title[]); 
void  question_8  (void); 
void  delay_  (unsigned  duration); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 


^*  ************************************************ 


MAIN  PROGRAM 


*********************************************** 

main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

) 

question_8(); 

setMode(3); 

} 
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/ 


***********************************************************************/ 


static  void  question_8(void) 

{ 

LINE  WIDTH  -  3; 
cls(l); 

drawRect(-309,2 1 0,3 1 0,-200, 11); 

write_horz_str(-300,160,"  Determine  if  the  graph  in  the  following" 

"  Figure  has  an  Euler  circuit. ”,31); 
drawLine(-50, 105,50,80,1 1); 
drawLine(- 50,105, 50,30,1 1); 


drawLine(-50,55,50,80,l  1); 
drawLine(-50,55, 50,30,1 1); 


drawLine(-50,5,50,30,l  1); 
drawLine(-50,5, 50,80,1 1); 
aspect  =  1.0; 

fillOval(-50, 1 05,3, 1 6,aspect); 
fillOval(50,80,3,16,aspect); 
fillOval(50,30,3, 1 6,aspect); 
fillOval(- 50,55, 3, 16, aspect); 
fillOval(-50,5,3, 1 6,aspect); 

write__horz_str(-300,-70,"  Enter  your  choice  as  y  or  n  — >",31); 

Ch  =  waitkeyO; 

if(Ch==ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)))  { 
write_horz_str(0,-70,"  Please  type  y  or  n",31); 

Ch  =  getch  (); 

if  ((Ch  ==  ’y’)  II  (Ch  ==  ’ Y’)  II  (Ch  ==  V)  II  (Ch  ==  ’N’)) 
write_horz_str(0,-70,"  ",31);  } 

switch  (Ch)  { 

case  ’y’:write_horz_str(-30,-70,"y  ”,31); 

write_horz_str(-30,-90,"No,  it  doesn’t  have  an  Euler",31); 
write_horz_str(-30,-l  10, "circuit,  because  there  is  no  path",31); 
write_horz_str(-30,-130,"that  includes  exactly  once  all  the",31); 
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write_horz_str(-30,- 150, "edges  of  the  graph  and  has  the  same",31); 
write_horz_str(- 30,-170, "initial  and  terminal  vertices.",31); 
break; 

case  ’Y’  :write_horz_str(-30,-70,"  Y  ",31); 

write_horz_str(-30,-90,"No,  it  doesn’t  have  an  Euler" ,31); 
write_horz_str(-30,-l  10, "circuit,  because  there  is  no  path",31); 
write_horz_str(-30,- 130, "that  includes  exactly  once  all  the",31); 
write_horz_str(-30,-150, "edges  of  the  graph  and  has  the  same", 31); 
write_horz_str(-30,-170,"initial  and  terminal  vertices.",31); 
break; 

case  ’n’  :write_horz_str(-30,-70,"  n  ”,31); 

write_horz_str(-30,-90,"No,  it  doesn’t  have  an  Euler",31); 
write_horz_sti (-30,-1 10, "circuit,  because  there  is  no  path",31); 
write_horz_str(-30,- 130, "that  includes  exactly  once  all  the",31); 
write_horz_str(-30,-150,"edges  of  the  graph  and  has  the  same”,31); 
write_horz_str(-30,- 170, "initial  and  terminal  vertices.",31); 
break; 

case  ’N’  :write_horz_str(-30,-70,"  N  ",31); 

write_horz_str(-30,-90,"No,  it  doesn’t  have  an  Euler",31); 
write_horz_str(-30,-l  10, "circuit,  because  there  is  no  path",31); 
write_horz_str(-30,- 130, "that  includes  exactly  once  all  the", 31); 
wnte_horz_str(.- 30,- 150, "edges  of  the  graph  and  has  the  same", 31); 
write_horz_str(-30,- 170, "initial  and  terminal  vertices.", 31); 
break; 

default  :  break;  } 

wait("Exercise  8"); 

cls(0); 
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/ 

***********************************************************************/ 
void  wait(char  title[]) 

{ 

int  tab,  width, line.mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxl  1)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringO’Press  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm_graph_exit(); 

] 

/ 

♦A*********************************************************************/ 

static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgcrJcey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_niouse&MS_CURS)  mshidecur(); 

write_horz_str(- 300, -210, "Quit  process,  are  yon  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ”,31); 

} 

switch  (ch)  { 
case  ’y’:  setMode(3); 
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videoinitO; 

normal_exit(); 

break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ",31); 

break; 

case  ’N’:write_horz_str(-3(X),-210,"  ”,31); 

break; 

default :  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 

/ 

***********************************************************************/ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/ 

I***********************************************************************/ 

static  void  normal_exit(void) 

{ 

srestore(savescm); 
gotoxy  _(crow  ,ccol ) ; 
if(_mouse)  mshidecur(); 
showcurf); 
exit(O); 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  pq9.c 
:  Yavuz  BAS 
:  Feb.  4,  1990 
:  Mar.  5,  1990 


DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C  com¬ 
piler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors,  h" 

#include  "cxldef.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

*********%****:,  ik****************************************/ 


char  adapt,  Ch; 
int  color  =  2; 
int  LENEWIDTH=  1 ; 
unsigned  long  int 
double  aspect; 

static  int  *savescm,crow,ccol; 
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^*************4^**4^***************************** 

FUNCTION  DEFINITIONS 

4^4t4‘4‘*****4‘****4‘***********4t4t*********4<****4<4'4‘4c*/ 


void  wait(char  title[]); 
void  question_9  (void); 
void  Helay_  (unsigned  duration); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 


/4<4'*************************4‘4'4'4'4'4'4‘4<*4‘4‘4<********4‘4‘* 

MAIN  PROGRAM 

4t4:4c4c4<4‘4‘4‘4:4c4‘****4‘4'4'*4'4'*4'*4'4<*4c4<*4‘*******4:*4'4'4'4c4<****4y 


main() 

{ 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

question_9(); 

setMode(3); 

} 
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/ 


****************************************************************»******/ 


static  void  question_9(void) 

{ 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,210,310,-200,l  1); 

write_horz_str(-300,160,"  Determine  if  the  graph  in  the  following" 

"  Figure  has  an  Hamiltonian  cycle.",31); 
drawLine  (-100,100,-120,30,1 1);  t*  AD  */ 
drawLine  (-120,30,-70,70,1 1);  f*  DC  */ 
drawLine  (-70,70,-130,70,1 1);  /*  CB  */ 

drawLine  (-130,70,-80,30,1 1);  /*  BE  */ 

drawLine  (-80,30,-100,100,1 1);  /*  HA  */ 

aspect  =  1.0; 

fillOval(- 1 00, 100,3, 1 6,aspect); 
fillOval(- 1 20,30,3, 1 6,aspect); 
fillOval  (-70,70,3, 1 6,aspect); 
fillOval(- 1 30,70,3, 1 6, aspect); 
fillC)val(-80,30,3,16,aspect); 


write_horz_char(- 100, 120,65,31);  /*  A  */ 
write_horz_char(- 145,70,66,31);  /*  B  */ 
write_horz_char(-65,70,67,31);  /*  C  */ 

write_horz_char(-135,30,68,31);  /*D  */ 
write_horz_char(-75  30,69,31);  /*  E  */ 


write_horz_str(- 300,-70,"  Enter  your  choice  as  y  or  n  — >",31); 
Ch  =  waitkeyO; 

if(Ch— ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’y’)  II  (Ch  ==  V)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)))  { 
write_horz_str(0,-70,"  Please  type  y  or  n",31); 

Ch  =  getch  (); 

if  ((Ch  ==  Y)  II  (Ch  =  ’Y’)  II  (Ch  ==  V)  II  (Ch  ==  ’N’)) 
write_horz_str(0,-70,"  ",31);  ) 

switch  (Ch)  ( 
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case  ’y’:write_horz_str(- 30,-70,"  y  ",31); 

write_horz_str(- 30,-90,"  Yes,  it  has  an  Hamiltonian  cycle,",31); 
write_horz_str(- 30,-1 10,"  as  well  as  an  Euler  circuit.",31); 
write_horz_str(-30,-130,"  Now  press  a  key  to  see  how.",31); 
break; 

case  *Y*  :write_horz_str(-30,-70,"  Y  ",31); 

write_horz_str(-30,-90,"  Yes,  it  has  an  Hamiltonian  cycle, ”,31); 
write_horz„str(-30,-l  10,"  as  well  as  an  Euler  circuit.",31); 
write_horz_str(-30,-130,"  Now  press  a  key  to  see  how.",31); 
break; 

case  ’n’  :write_horz_str(-30,-70,"  n  ",31); 

write_horz_str(-30,-90,"  Yes,  it  has  an  Hamiltonian  cycle, ",31); 
write_horz_str(-30,-l  10,"  as  well  as  an  Euler  circuit.",31); 
write_horz_str(-30,-130,"  Now  press  a  key  to  see  how.",31); 
break; 

case  ’N’  :write_horz_str(-30,-70,"  N  ",31); 

write_horz_str(- 30,-90,"  Yes,  it  has  an  Hamiltonian  cycle,",31); 
write_horz_str(- 30,-1 10,"  as  well  as  an  Euler  circuit.",31); 
write_horz_str(-30,-130,"  Now  press  a  key  to  see  how.",31); 
break; 

default  :  break;  } 

if(waitkey()==ESC)  confirm_graph_exit(); 
drawLine  (-100,100,-120,30,28);  /*  AD  */ 
delay_(36); 

drawLine  (-120,30,-70,70,28);  /*  DC  */ 

delay_(36); 

drawLine  (-70,70,- 1 30,70,28);  /*  CB  */ 

delay_(36); 

drawLine  (-130,70,-80,30,28);  /*  BE  */ 

delay_(36); 

drawLine  (-80,30,- 100,100,28);  /*  EA  */ 

write_horz_str(-30,-130,"  Namely,  starting  from  vertex  A,",31); 
write_horz_str(-30,-150,"  and  following  the  vertices  D,  C",31); 
write_horz_str(-30,-170,"  B,  E,  A  gives  us  an  Hamiltonian  cycle. ",31); 
wait("Exercise  9"); 
cls(0); 
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} 

/ 


***********************************************************************/ 


void  wait(char  title[]) 

{ 

int  tab,  width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxl  1)  II  (mode  ==  0x12)) 
line  =  29; 
else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title,WHTTE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringC'Press  any  key  to  continue WHITE, 0); 
if ( waitkey  ()==ES C)  confirm_graph_exit(); 

} 

/ 


***********************************************************************/ 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

wri te_horz_str(-300,-2 1 0, "Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str( 30,-2 10,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ”,31); 

} 

switch  (ch)  { 
case  ’y’:  setMode(3); 
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videoinitO; 

normal_exit(); 

break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’n’;write_horz_stn,-300,-210,"  ”,31); 

break; 

case  ’N^writeJiorz.stit-SOO^lO,"  ”,31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcurO; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/ 


***********************************************************************/ 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/ 


***********************************************************************/ 


static  void  normal_exit(void) 

( 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcurf); 

exit(0); 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  pqlO.c 
:  Yavuz  BAS 
:  Feb.  4, 1990 
:  Mar.  5, 1990 


DESCRIPTION  :  This  program  contains  an  exercise  for  the  "Paths  and  Circuits". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C  com¬ 
piler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


^********************************************************* 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

****4^***************%***********************************/ 


char  adapt,  Ch; 

int  color  =  2; 

int  LINEWEDTH=1; 

unsigned  long  int  PATTERN=<)xFFFFFFFF; 
double  aspect; 

static  int  * savescm ,crow,ccol ; 
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/************************************************** 
FUNCTION  DEFINITIONS 

*  *  **  i)i  lit  **  *  *  *  *  *  *  *  4c  *  *  *  *  *  4c  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  **/ 

void  wait(char  title[]); 
void  question_10  (void); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 


/************»************************************ 
MAIN  PROGRAM 

*************************************************/ 


main() 

{ 


adapt  =  getAdapter(); 
if  (adapt  == ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

question_10(); 

setMode(3); 
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/ 


***********************************************************************/ 


static  void  question_10(void) 

{ 

LINEWIDTH  =  3; 
cls(l); 

drawRect(-309, 210,310, -200,1 1); 

write_horz_str(-300,160,"  Determine  if  the  graph  in  the  following" 

"  Figure  has  an  Hamiltonian  cycle.", 31); 


drawRect(-25,75,25,25,l  1); 
drawLine(-25,75,25,25,l  1); 
drawLine(25,75,- 25,25,1 1); 
drawLine(0, 100,-50,50, 11); 
drawLine(- 50,50,0,0, 11); 
drawLine(50, 50,0,0,1 1); 
drawLine(50,50,0, 1 00, 1 1 ); 

aspect=  1.0; 

fillOval(0, 1 00,3, 1 6,aspect); 
fillOval(0,50,3, 1 6,aspect); 
fillOval(-25,75,3, 1 6,aspect); 
fillOval(-50,50,3, 1 6,aspect); 
fillOval(-25,25,3, 1 6,aspect); 
fillOval(0, 0,3, 1 6, aspect); 
fillOval(25,25,3, 1 6,aspect); 
fU10val(50,50,3,16,aspect); 
fillOval(25,75,3, 16, aspect); 

write_horz_str(- 300,-70,"  Enter  your  choice  as  y  or  n  — >",31); 
Ch  =  waitkeyO; 

if(Ch=ESC)  confirm_graph_exit(); 

while  (!((Ch  =  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  *Y’)  II  (Ch  ==  ’N’)))  { 
write_horz_str(0,-70,"  Please  type  y  or  n",31); 

Ch  =  getch  (); 

if  ((Ch  ==  y )  II  (Ch  ==  *Y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’N’)) 
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,31); ) 


write_horz_str(0,-70," 
switch  (Ch)  { 

case  ’y’:write_horz_str(-30,-70,"  y  ”,31); 

write_horz_str(- 30,-90,"  No,  it  does  not  have  an  Hamiltonian",31); 
write_horz_str(-30,-110,"  cycle,  because  there  is  no  cycle",31); 
write_horz_str(-30,-130,"  that  includes  each  vertex.", 31); 
break; 

case  ’Y’  :write_horz_str(-30,-70,"  Y  ",31); 

write_horz_str(- 30,-90,"  No,  it  does  not  have  an  Hamiltonian", 31); 
write_horz_str(- 30,-1 10,"  cycle,  because  there  is  no  cycle",31); 
write_horz_str(-30,-130,"  that  includes  each  vertex. ",31); 
break; 

case  ’n’  :write_horz_str(-30,-70,"  n  ",31); 

write_hor7_str(-30,-90,"  No,  it  does  not  have  an  Hamiltonian",31); 
write_horz_str(- 30,-1 10,"  cycle,  because  there  is  no  cycle",31); 
write_horz_str(-30,-130,"  that  includes  each  vertex.  ”,31); 
break; 

case  ’N’  :write_horz_str(-30,-70,"  N  ”,31); 

write_horz_str(- 30,-90,"  No,  it  does  not  have  an  Hamiltonian",31); 
write_horz_str(-30,-l  10,"  cycle,  because  there  is  no  cycle",31); 
write_horz_str(-30,-130,"  that  includes  each  vertex. ”,31); 
break; 

default  :  break;  } 

wait("Exercise  10"); 

cls(0); 

} 

/ 


**********************************************************************1,/ 


void  wait(char  title[]) 


{ 


int  tab,  width, line.mode; 
mode  =  getMode(&width); 
if  ((mode  ==  0x11)  II  (mode  ==  0x12)) 
line  =  29; 


else 


line  =  24; 


397 


tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringC'Press  any  key  to  continue WHITE.O); 
if(waitkey()==ESC)  confirm  _graph_exit(); 


******************** ***^****** *************************** **************/ 
static  void  confirm _graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ",31);  } 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-210,"  ”,31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ”,31); 

break; 

default :  break;  } 


”,31); 


I 


if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


***********************************************************************/ 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 

gotoxy_(crow,ccol); 

ifCjnouse)  mshidecur(); 

showcur(); 

exit(0); 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  color.c 
:  Yavuz  BAS 
:  Feb.  4,  1990 
:  Mar.  5,  1990 


DESCRIPTION  :  This  program  contains  the  tutorial  for  the  "coloring  a  graph." 
MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C  com¬ 
piler  Version  2.0. 

*/ 

/*  header  files  */ 

#include  <process.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

#if  defined( _ TURBOC _ ) 

#include  <dir.h> 

#else 

#include  <direct.h> 

#endif 

#if  defined(M_I86)  &&  !defined( _ ZTC _ ) 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  tindnentfa)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_najne  name 

#elif  defined( _ ZTC _ ) 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 

#define  GRAPH_T_DEFINED 


f*  MSC/QuickC  */ 


/*  Zortech  C/C++  */ 


/*  Turbo  C  *1 


/*  all  others  */ 
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/*  function  prototypes  */ 

static  void  add_shadow  (void); 

static  void  confirm_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  do_nothing  (void); 

static  void  error_exit  (int  ermum); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  normnI_exit  (void); 

static  void  press_a_key  (int  wrow); 

static  void  quit_window  (void); 

static  void  restore_cursor  (void); 

static  void  short  delay  (void); 

static  void  size_window  (int  nerow.int  necol); 

static  void  example_3_22  (void); 

static  void  exainple_3_23  (void); 

static  void  example_3_24  (void), 

static  v  jid  example_3_25  (void); 

static  void  example_3_26  (void); 

static  void  exaniple_3_27  (void); 

static  void  example_3_28  (void); 

static  void  example_3_29  (void); 

static  void  thm_3_6  (void); 

static  void  thin_3_7  (void); 

static  void  Welsh_Powell  (void); 

static  void  defmition_3_15(void); 

static  void  exercises  (void); 

static  void  coloring  (void); 

static  void  Pexercisel(void); 

static  void  Pexercise2(void); 

static  void  Pexercise3(void); 

static  void  Pexercise4(void); 

static  void  exercise  1( void); 

static  void  exercise2(void); 

static  void  exercise3<void); 

static  void  exercise4(void); 

static  void  Pex_3_22  (void); 
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static  void  Pex_3_23  (void); 
static  void  Pex_3_24  (void); 
static  void  Pex_3_25  (void); 
static  void  Pex_3_26  (void); 
static  void  Pex_3_27  (void); 
static  void  Pex_3_28  (void); 
static  void  Pex_3_29  (void); 
static  void  Pdef_3_15(void); 
static  void  Pthm_3_6(void); 
static  void  Pthm_3_7(void); 
static  void  PWelsh_Powell(void); 
static  void  following22(void); 
static  void  followiiig23(void); 
static  void  following24(void); 
static  void  following25(void); 
static  void  following26(void); 
static  void  following27(void); 
static  void  fol!owing28(void); 
static  void  following29(void); 
static  void  followingthm_3_6(void); 

/ 

♦a*********************************************************************/ 

/*  miscellaneous  global  variables  */ 
static  int  *savescm,crow,ccol; 
static  WINDOW  w[10]; 
static  char  ssan[10]; 

/ 

*+*++****************★♦*****#***+♦1***  *****+*******************+***+*>* 

/*  error  message  table  */ 
static  char  *error_text[]=  ( 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  =  1,  windowing  error  */ 

"Syntax:  CXLDEMO  [-switches JViNn" 

"\t  -c  =  CGA  snow  elimination\n" 

'"'t  -b  =  BIOS  screen  writingVi” 

-m  =  force  monochrome  text  attributes". 
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"Memory  allocation  error' 


}; 

/*  miscellaneous  defines  */ 

#define  SHORT_DELAY  18 
#define  H_WINTITLE  33 
/ 

***********************************************************************/ 
/*  this  function  will  add  a  shadow  to  the  active  window  */ 

/ 

************************************************************** <*********/ 

static  void  add_shadow(void) 

{ 

wshadow(LGREYI_BLACK); 


/ 

***********************************************************************/ 
/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 

/ 

********  ifc********************************************* ***************  if+j 

static  void  confirm_quit(void) 


struct  _onkey_t  *kblist: 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9,26,13,55,0,WHrrELBROWN,WHITELBROWN))  error_exit(l ); 
add_shadow(); 

wputs("\n  Quit  demo,  are  you  sure?\033A\156Y\b"); 

clearkeysO; 

showcur(); 

if(wgetchf("YN  ”,’Y’)==’Y’)  nonnal_exit(); 

wclose(); 

hidecur(); 

if(_mouse&MS_CURS)  msshowcurO; 
chgonkey(kbiist);  /*  restore  any  hidden  hot  keys  */ 
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/ 

ft**********************************************************************/ 

/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 
static  void  disp_sure_msg(void) 

{ 

wprints(0,2,WHITEI_BLUE,"Are  you  sure?"); 

) 

/ 

*  *  *  +  +  +  *  *  *  *  +  *  +  *  *  *  *  +  ★  +  +  *  *  *  *  *  *  *  *  *  *  +  *  *  *  **  ★  *  *  *  ★  +  *  +  *  *  +  *  *  *  *  *  *  *  *  *  *  *  *  +  *  +  *  +  V  *  *  *  *  *fj 

/ *  this  function  is  used  as  a  dummy  function  for  */ 

/*  several  menu  items  in  the  pull-down  demo  */ 

/ 

static  void  do_nothing(void) 

I 

) 

/ 

♦♦♦♦"fr********************************* ***+*****#*****+*+*+***++ ***++*+*y 

/*  this  function  handles  abnormal  termination.  If  it  is  passed  an  error  code  of  1 ,  then  */ 

/*  it  is  a  windowing  system  error.  Otherwise  the  error  message  is  looked  up  in  the  */ 
/♦error  message  table. 

/ 

static  void  error_exit(int  ermum) 

( 

if(ermum)  { 

printf('\i%s\n",(ermum=l)?werrmsg():error_text[errnurn]); 
exit(ermum); 


/ 

*********************************★*************************************/ 


*/' 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor 
/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0. 

/ 


*/ 

*/ 


********************************************************************** 


*/ 
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static  void  normal_exit(void) 

{ 

srestore(savescm); 
gotoxy__(crow  ,ccol); 
if(_rnouse)  msliidecur(); 
showcur(); 
exit(O); 

} 


/ 


**********************%#********%***%*********************%************  j 

/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

/ 


**********************************************************+************y 


static  void  press_ajkey(int  wrow) 


register  int  attrl; 
register  int  attr2; 

attrl=(YELLOW)l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo.active->wattr»4)«4); 
wcenters (wrow, attrl, "Press  a  key"); 
wprints(wrow,0,LGREYI_RED,"Pgup/Pgdii"); 
hidecur(); 

if(waitkey()==ESC)  confinn_quit(); 
wcenters(  wrow, attrl,"  ”); 

wprints(wrow,0,attr2,"  "); 


/ 

static  void  short_delay(void) 

I 

delay  _(SHORT_DELAY); 
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/ 


♦a*********************************************************************/ 


/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  (Q]uit  menu  items.  */ 


/ 


*#************************************************★********************/ 


static  void  quit_window(void) 

I 

static  WINDOW  handle=0; 


if(handle)  { 

wactiv(handle); 

wclose(); 

handle=0; 

} 

else  { 

handle=wopen(14,41,17,70,0,YELLOWI_RED,WHITEI_RED); 
wputs("  Quit  takes  you  back  to  the^i  demo  program’s  main  menu."); 


} 

/ 

static  void  restore_cursor(void) 

I 

wtextattr(WHITEI_MAGENTA); 

sliowcur(); 

} 

/ 

**+*>i<**+*%*************’t<+*>(<+**********++**+*************>i'****’i«******+>!<’iy 

static  void  size_window(int  nerow.int  necol) 

( 

wsize(nerow.necol); 

shoii_delay(): 

) 
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/ 


ft**********************************************************************/ 


static  void  move_window(int  nsrow.int  nscol) 

{ 

if(wmove(nsro  w , nscol ) )  error_exit(  1 ) ; 
short_delay(); 


) 

/ 

***********************************************************************y 

void  main() 


coloring(); 


/ 

**  +  **  +  +  +  +  +  ***  +  +  *****  +  >t>  +  +  *  +  +  +  +  ***  +  **  +  +  *******  +  +  ****+:*)t<  +  +  ****J|<  +  **  +  +  +  +  **  +  Jf<y 

static  void  coloring  (void) 


I 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 

cclrscm(LGREYLGREEN); 

definition_3_15(); 

srestore(scm); 


} 

y+ilt*****  I*********************** *  +  *************************************i!y 


void  definition_3_15(void) 


y+ ++*++*+*+*+*+*+++**+**+*++***+*+ **+**+*******++++++**+**+*+***/ 


/*  attach  IPageup]  to  the  definition_3_15  function  */ 
setonkey(0x4900,Pdef_3_J  5,0 ); 

y*********++*********+******************************************y 


/*  attach  [Pagedown]  to  the  example_3_22  function  */ 
setonkey(0x5 1 00,Pex_3_22,0); 

^*  ************************************************************** 


if((w[l]=wopen(6)l0,I0)70,3,LCYANI_MAGENTA,WHITELMAGENTA))==0) 
error_exit(  1 ); 
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wtitle("[To  color  a  graph]", TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTITLE); 

wputsw("  To  color  a  graph  means  to  assign  a  color  to  each  vertex  such" 

"  that  adjacent  vertices  have  different  colors."); 
press_a_key(2); 

if((w[2]=wopen(12,10,17,70,3,LCYANLMAGENTA,WHITELMAGENTA»=0) 

error_exit(l); 

wtitle(" [Chromatic  number] " ,TCENT ER,_LGRE Y IBRO WN); 
whelpcat(H_WINTITLE); 

wputsw("  When  a  graph  G  can  be  colored  with  n  colors  but  not  with  a" 

”  smaller  number  of  colors,  G  is  said  to  have  chromatic  number" 

n.  ), 


press_a_keyu); 

wclose(); 


wclose(); 
follow  ing22(); 

} 


void  foIIowing22(void) 

{ 


^*i(ri(<*****i(<*****^***  +  *  +  *******  +  *  +  **i(c**  +  +  +  +  *i(i  +  *4'**>f<>ti****  +  ***i(<  +  +  ***  +  *+y' 

/*  attach  [PageUp]  to  the  definition_3_15  function  */ 
setonkey  (0x4900, Pdef_3_l  5,0); 


/*  attach  [Pagedown]  to  the  example_3_23  function  */ 
setonkey(0x5100,Pex_3_23,0); 

y***+if*****  +  **  +  ***  +  ****j(<+*****4c***  +  *  +  *%*++***  +  +  ***Jt<’(<4<  +  **>(<*  +  *  +  **+y 


if((w[l]=wopen(20,42,24,77,3,LCYANI_CYAN,WHITEI_CYAN))=0) 
error_exit(l); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  an  example...."): 
press_a_key(2); 
wcloseall(); 
example_3_22(); 
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**  +  *  +  *  +  ****  +  **  +  *********  +  *  +  +  ***  +  *  +  ********  +  ****>l<*if  +  *  +  +  *4'  +  *  +  +  +  **  +  *  +  ****<y 

void  example_3_22(void) 

I 

register  int  *scm; 

if((scm=ssave())=NULL)  error_exit(3 ); 

spawnl(P_WAIT,"ex3_22.exe"^ULL); 

srestore(scm); 

fo!lowing23(); 

) 

/ 

I***********************************************************************/ 

void  following23(void) 

I 

^■fr***************************#*************************************^ 

/*  attach  [Pageup]  to  the  example_3_22  function  */ 
setonkey(0x4900,Pex_3_22,0); 

Z^****************************************************************/ 

/*  attach  [Pagedown]  to  the  example_3_24  function  */ 
setonkey(0x5 1 00,Pex_3_24,0); 

*  %  afc  ★  *  ♦  *  *  *  *  *  *  ★  ♦  ★*  Jk*  %  ★  ★  *♦  *  *  ♦♦  *  +  ♦  +  *  *  +  ♦  ★  ★  ♦  ★  *  ♦  *  ★  *  ♦  *  *  ♦  *  *  *  *  *  *  *  *  *  ★  *  *  *  *  *  "¥j 

if((w[l]=wopen(20, 42, 24,77,3,  LCYANI_RED,WHITEI_RED))==0) 
error_exit(  1 ); 
whelpcat(H„WINTTTLE); 
wputsw("Press  a  key  to  see  an  example...."); 
press_a_key(2); 
wcloseall(); 
example_3_23(); 


.it***********************************************, ***  +  -;.  ******************y 

void  example_3_23(void) 


register  int  *scm; 

if((scm=ssaveO)==NULL)  error_exit(3); 
spawnl(P_WAIT,"ex3_23.exe",NULL); 
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srestore(scm); 

example_3_24(); 


*****************%*********************************#*****%****%********/ 
void  example_3_24(void) 

( 

/I*************************************************************** 

/*  attach  [Pageup]  to  the  example_3_23  function  */ 
setonkey(0x4900,Pex_3_23,0); 

|****  +  *******>4<if>*****  +  ******************  +  ***  +  *  +  +  ******  +  *  +  +  +  +  +  +  **  +  >iy 

/*  attach  [Pagedown]  to  the  example_3_25  function  */ 
setonkey(0x5 1 00,Pex_3_25,0); 

Z***************************************************************/ 

if((wLl]=wopen(9,10115,70,3,LCYANI_MAGENTA,WHITELMAGENTA))==0) 
error_exit(l ); 

wtitle("[Example  3.24]",TCENTER,_LGREYIBROWN); 
whelpcat(  HWINT1TLE) ; 

wputsw("  The  complete  graph  Kn  with  ..  vertices  can  be  colored  using" 

"  n  colors.  But  since  every  vertex  is  adjacent  to  eveiy  other" 

"  vertex,  a  smaller  number  of  colors  will  not  work.  Thus,  Kn" 

"  has  chromatic  number  n."); 
press_a_key(4); 
wclose(); 
following25(); 


♦  ♦Vi*****************************************************************,,^/ 

void  following25(void) 

{ 

/******************************  +  **  +  *********  +  *******  +  ********  +  **  +  :|y 

/*  a.tach  [Pageup]  to  the  example_3_24  function  */ 
setonkey(0x4900,Pex_3_24,0); 
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/If******************************************** ******************* *^ 


/*  attach  [Pagedown]  to  the  example_3_26  function  */ 
setonkey(0x5 1 00,Pex_3_26,0); 


/*********************************+****************************** */ 


if((w[l]=wopen(20,42,24,77,3,LCYANI_MAGENTA,WHITELMAGENTA))==0) 
error_exit(  1 ); 
whelpcat(H_WIN  llTLE); 
wputsw("Press  a  key  to  see  an  example...."); 
press_a_key(2); 
wcloseall(); 
example_3_25(); 

} 

/ 

ik**********************************************************************/ 


void  example_3_25(void) 

( 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl(P_W  AIT, "ex3_25.exe", NULL); 
srestore(scm); 
foilowing26(); 


/ 

♦♦ik*********************************#**********************************/ 

void  foIlowing26(void) 

I 

/ft***************************************************************/ 

/*  attach  [Pageupl  to  the  example_3_25  function  */ 
setonkey(0x4900,Pex_3_25,0); 

^ik***************************************************************/ 

/*  attach  [Pagedown]  to  the  thm_3_6  function  */ 
se  t  onkey  (0x5 1 00,  Pthm_3  _6 ,0 ) ; 

^***jk****jkjk***********************************>l<1l<!f'***)t'**********’l',l<>iy 

if((w[  1  ]=wopen( 20,42,24,77,3  ,LCY  ANI_BROWN,YELLOWI_B  ROWN )  )==0 ) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
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wputsw("Press  a  key  to  see  an  example...."); 

press_a_key(2); 

wcloseallQ; 


example_3_26(); 

I 

/ 


**********  j*************************************************************^ 


void  example_3_26(void) 

{ 

register  int  *scm; 

if((scm=ssave( )  )=N  ULL)  error_exit(3 ); 

spawnl(P_WATr,"ex3_26.exe"JNULL); 

srestore(scm); 

followingthin_3_6(); 

) 


***********************************************************************/ 


void  fo11owingtlim_3_f*(void) 

I 

/******************************************************************/ 
/*  attach  [Pageupl  to  the  example_3_26  function  */ 
setonkey(0x4900,Pex_3_26,0); 

^* *****************************************************************/ 
/*  attach  [Pagedown]  to  the  example_3_27  function  */ 
setonkey(0x5 100,Pex_3_27,0); 

/******************************************************************/ 

if((wll]=wopen(20,42,24,77,3,LCYANLLGREY,WHITELLGREY))=0) 


error_exit(  1 ); 
whelpcat(H_WIN'I  TT  LE ); 
wputsw("Press  a  key  to  see  a  theorem...."); 
press_ajkey(2); 
wcloseall(); 
thm_3_6(); 


I 

/ 


***********************************************************************/ 
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void  thm_3_6(void) 

{ 

register  int  *scm; 

if((scm=ssave())=NULL)  error_exit(3); 
spawnl(P_W  AIT, "tlun3_6.exe"  ^fULL); 
srestore(scm); 
following27(); 


/ 

* + *  *  * + + #  *  *  * + *  *  *  *  *  *  *  *  *  *  *  *  #  *  *  ★  ★ + *  *  * + * + #  *  *  * * *  * + + *  *  *  *  ★  *  *  * * *  *  * + *  *  *  * + * + #  *  *  *  * 
void  foIlowing27(void) 


/***********+***+***++**********************+******+**************/ 
/*  attach  [Pageup]  to  the  theorem_3_6  function  */ 
setonkey(0x4900,Pthm_3_6,0); 

/*  attach  [Pagedown]  to  the  theorem_3_7  function  */ 
setonkey(0x5 100,Pthm_3_7,0); 

/*****************************************************************/ 


if((w[  1  ]=wopen(20,42,24,77 ,3,LCY  ANI_BLUE,WHITELBLUE))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  an  example...."); 
press_a_key(2); 
wcloseall(); 
example_3_27(); 


/ 

***********************************************************************/ 
void  example_3_27(void) 

I 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3 ); 
spawnl(P_WAIT,”ex3_27.exe"vNULL); 
srestore(scm); 
tlun_3_7( ); 
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> 


/ 


*  + I******  ****!)(  I*****  ******  +  +  *★  + ***★+*  +  *  + ★*■!<****★***  **★>!<  *★★**★**  ★*★***♦***/ 


void  thm_3_7(void) 


/***************************************************************/ 


/*  attach  [Pageup]  to  the  example_3_27  function  */ 
setonkey(0x4900,Pex_3_27,0); 


/^t**************************************************************/ 


/*  attach  [Pagedown]  to  the  example_3_28  function  */ 
setonkey(0x5 100,Pex_3_28,0); 


^i***************************************************)************/ 


if((w[  1  ]=wopen(5 , 1 0, 1 0,70,3  ,LC  YANI_MAGENTA,WHITELMAGENTA  ))=0) 
error_exit(l ); 

wtitle("  [Theorem  3.7]",TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTTTLE); 

wputsw("  For  a  graph  G,  the  chromatic  number  of  G  cannot  exceed  one" 

"  more  than  the  maximum  of  the  degrees  of  the  vertices  of  G."); 
press_a_key(3); 

if((w[2J=wopen(  1 1 ,  i  0,23, 70,3, LCYANLMAGENTA,  WHITEI_MAGENTA  ))==0) 
error_exit(l ); 

wtitle("[Proof  of  Theorem  3.7]",TCENTER,_LGREYIBROWN); 
whelpcat(H_WINTITLE); 

wputsw("  Let  K  be  maximum  of  the  degrees  of  the  vertices  of  G.  We" 

"  will  show  that  G  can  be  colored  using  k+1  colors  C0,...,Ck." 

"  First  a  vertex  V  is  selected  and  the  color  CO  is  assigned  to" 

"  it.  Next  some  other  vertex  W  is  picked.  Since  there  are  at" 

"  most  k  vertices  adjacent  to  W  and  there  are  at  least  k+1" 

"  colors  available  to  choose  from,  there  is  at  least  one  color" 

"  (possibly  many)  that  has  not  been  used  on  a  vertex  adjacent" 

"  to  W.  Choose  such  a  color.  This  process  can  be  continued" 

"  until  all  the  vertices  of  G  are  colored."); 
press_a_key(10); 
wcloseO; 
wcloseO; 
following28(): 


414 


/ 

d**********************************************************************/ 

void  following28(void) 

I 


y*********************************#******************************/ 


/*  attach  [Pageup]  to  the  theorem_3_7  function  */ 
setonkey(0x4900,Pthm_3_7,0); 


/*  attach  [Pagedown]  to  the  Welsh_Powell  function  */ 
setonkey(0x5 1 00,PWeish_PoweU  ,0); 

^d***************************************************************^ 


if((w[l]=wopen(20,42,24,77,3,LCYANLGREEN,WHITELGREEN))=0) 
error_exit(  1 ); 
wlielpcat(  H_W  INTITLE ); 
wputsw("Press  a  key  to  see  an  example...."); 
press_a_key(2); 
wcloseall(); 

example_3_280; 


/ 

d***********dd*****d**d*************d*******dd****d****dd**d*d******* 

void  example_3_28(void) 

( 

register  int  *scm; 

if((scm=ssave( )  )=NULL)  error_exit(3 ) ; 
spawnl(PJWAIT,"ex3  J28.exe", NULL); 
srestore(scm); 

WelshJPowell(); 


/ 

void  Welsh_Powell(void) 

I 
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/*  attach  [PageUp]  to  the  example_3_28  function  */ 
setonkey(0x4900,Pex_3_28,0); 

/*  attach  [Pagedown]  to  the  example_3_29  function  */ 
setonkey(0x5  l(H),Pex_3_29,0); 

if((w[l]=wopen(l,2(5,74,3,LCYANLMAGENTA,WHITELMAGENTA))=0) 

error_exit(l); 

wtitle("[Welsh  and  Powell  Algoritlun] " ,TCENT ER ,_LGRE Y IB RO WN ) ; 
whelpcat(H_WINTITLE); 

wputsw("  This  algorithm  gives  a  coloring  of  a  graph  by  labeling  the" 

"  vertices  according  to  their  degrees."); 
press_a_key(2); 

if((w[2]=wopen(6,2,l  l,74,3,LCYANI_CYAN,WHrTEI_CYAN))==0) 
error_exit(  1 ); 

wtitle("[Step  1  ]",TCENTER,_LGREYIBROWN); 
whelpcat(  HWINTITLE); 

wputsw("  (label  the  vertices  by  degree).  Label  the  vertices  VI,  V2," 

"...,Vn  such  that  deg(Vl )  >=  deg(V2)  >=  ...  >  -  deg(Vn).(Ties" 

"  can  be  broken  arbitrarily.)"); 
press_a_key(3); 

if((w[3]=wopen(l  1,2,1 7,74,3,LCYANLBLUE,WHITELBLUE))==0)  erTor_exit(  1 ) 

wtitle("[Step  2]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WINT]TLE); 

wputsw("  (color  first  uncolored  vertex  and  uncolored  vertices  adjacent” 

"  to  it).  Assign  an  unused  color  to  the  first  uncolored  vertex" 

"  in  the  list  of  vertices.  Go  through  the  list  of  vertices  in" 

"  order,  assigning  this  new  color  to  any  vertex  not  adjacent  to" 

"  any  other  vertex  with  this  color."); 
press_a_key(4); 

if((w[4J=wopen(  1 7,2,2 1 ,74,3,LCYANI_LGREY,  WHITELLGREY )  )==0 ) 
error_exit(  1 ); 

wtitle("[Step  3]”,TCENTER,_LGREYIBROWN ); 
whelpcat(H_WINTITLE); 

wputsw("  (graph  colored?).  If  some  of  the  vertices  are  uncolored,  then" 

"  return  to  step  2."); 
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press_a_key(2); 

if((wl5J=wopen(21,2,24,74,3,LCYANI_BROWN,WHlTEI_BROWN))==0) 

error_exit(l); 

w  title( "  IStep  4] "  ,TCENTER  ,_LGREY!BRO  WN); 
whclpcat(  H_W1NTITLE ) ; 

wputsw("  (done).  A  coloring  of  the  graph  has  been  constructed."); 

press_a_key(l ); 

wcloseall(); 

following29(); 

} 

/ 

void  following29(void) 

( 

/*  attach  [Pageup]  to  the  Welsh_Powell  function  */ 
setonkey  (0x4900 ,PWelsh_Powell  ,0 ) ; 

/*  attach  [Pagedown]  to  the  exercise  1  function  */ 
setonkey(0x5 1  OO.Pexercise  1,0); 

/I****************************************************************/ 

if((w[  1  ]=wopen(20,42,24,77,3,LCYANI_CYAN,WHITEI_CYAN))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Press  a  key  to  see  an  example...."); 
press_a_key(2); 
wcloseall(); 
example_3_29(); 

) 

/ 

void  example_3_29(void) 

I 

register  int  *scrn; 

if((scm=ssave())==NULL)  error_exit(3); 
spawnl{ P_WAlT,"ex3_29  exe",NULL); 
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srestore(scrn); 
exercise  1(); 


**i(<i(>**i)i*  +  **  +  **  +  ****  +  *  +  +  ****  +  +  *******%****  +  *****  +  *4'*  +  ******  +  *  +  >t>'*'*'*i*  +  4'**+^ 


void  exercise  1  (void) 

{ 

register  int  *scm; 

^*  ****************★**★★★★*****★★*★**★★*****★*******★**★**********/ 
/*  attach  [Pageup]  to  the  example_3_29  function  */ 
setonkey  (0x4900,  Pex_3_29 ,0) ; 

/*********+***+*********************************+****************/ 
/*  attach  [Pagedown]  to  the  exercise2  function  */ 
setonkey(0x5 100,Pexercise2,0); 

^♦♦it*************************************************************/ 

if((scm=ssave())=NULL)  error_exit(3); 

if((wll]=wopen(20,42,24,77,3,MAGENTAI_BLUE,WHITEI_BLUE))=0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  some  exercises..."); 
press_a_key(2); 
wcloseall(); 

spawnI(P_WAJT,"cq  L  .exe",NULL); 

srestore(scm); 

exercise2(); 


) 

/ 

*  +  ##*##*#4'***##*#  +  ***#*1'*1'#*****1'*  *************************  ************/ 

void  exercise2(void) 


register  int  *scm; 

^*****************************************************************^ 
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/*  attach  [Pageup]  to  the  exercise  1  function  */ 
setonkey(0x4900,Pexercisel  ,0); 


/*  attach  [Pagedown]  to  the  exercise3  function  */ 
setonkey(0x5 100,Pexercise3,0); 

if((scm=ssave())=NULL)  error_exit(3); 

if((w[l]=wopen(20,42,24,77,3JMAGENTAI_BLUE,WHITEI_BLUE))=0) 
error_exit(  1 ); 
whelpcat(H_WINTTTLE); 
wputsw("Now  let  us  see  exercise  2.."); 
press_a_key(2); 
wcloseallO; 

spawnl(P_W  AIT, "cq2.exe", NULL); 

srestore(scm); 

exercise3(); 


/ 

*****************************************************+***************** 


void  exercise3(void) 


register  int  *scm; 

y****************************************************************^ 


/*  attach  [Pageup]  to  the  exercise2  function  */ 
setonkey(0x4900,Pexercise2,0); 

j*****************************************************************^ 


/*  attach  [Pagedown]  to  the  exercise4  function  */ 
setonkey(0x5 100,Pexercise4,0); 

/*****+***********************************++****+*+*****++****+*+*/ 
if((scm=ssave())=NULL)  error_exit(3); 

if((w[l]=wopen(20, 42,24,77, 3,MAGENTAI_BLUE,WHITELBLUE))==0) 
error_exit(  1 ); 
wlielpc  at  ( H_  W1NTITLE ) ; 
wputsw("Now  let  us  see  exercise  3.."); 
press_a_key(2); 
wcloseallO; 
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spawnl(P_W  AIT, "cq3.exe", NULL); 

srestore(scm); 

exercise4(); 


} 

/ 

*************** ********************************************************/ 
void  exercise4(void) 


register  int  *scm; 

y****************************************************************^ 

/*  attach  [Pageup]  to  the  exercise3  function  */ 
setonkey(0x4900,Pexercise3,0); 

y****************************************************************y 
/*  attach  [Pagedown]  to  the  normal_exit  */ 
setonkey(0x5 1 00,normal_exit,0); 

^****************************************************************^ 
if((scrn=ssave())==NULL)  error_exit(3 ); 

if((w[  1  J=wopeH(20,42,24,77,3,MAGENTAI_BLUE,WHrrELBLUE))==0) 
error_exit(  1 ); 
whelpcat(H_WINTITLE); 
wputsw("Now  let  us  see  exercise  4..”); 
press_a_key(2); 
wcloseallQ; 

spawnl(P_WAIT,"cq4.exe",NULL); 

srestore(scm); 

normal_exit(); 


/ 

***********************************************************************y 

/*  this  routine  calls  exainple_3_22  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

****************************************************%******************/ 
void  Pex_3_22( ) 

I 

wcloseall(); 
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following22(); 


) 

/ 


*#**************:(<  ********%*  *********************************  ***♦****★♦*/ 


/*  this  routine  calls  example_3_23  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 


***********************************************************************/ 


void  Pex_3_23() 

I 

wcloseall(); 
follow  ing23(); 


/ 

**********************************************************************>iy 

/*  this  routine  calls  example_3_24  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

***********************************************************************/ 


void  Pex_3_24() 

I 

wcloseallO; 

example_3_24(); 

} 

/ 

/*  this  routine  calls  example_3_25  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

*********************************************************************** 

t 

void  Pex_3_25( ) 

( 


wcloseallO; 

following25(); 


} 

/ 

***************************************************** *********** *******^ 

/*  this  routine  calls  example_3_26  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

***************************************************************** ******^ 


void  Pex_3_26() 

( 

wcloseall(); 
follow  ing26(); 

) 


/ 

********************************** *************************************/ 

/*  this  routine  calls  example_3_27  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

********************************** *************************************^ 


void  Pex_3_27() 


wcloseallO; 

following27(); 


/ 

************************************** *********************************/ 

/*  this  routine  calls  example_3_28  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

***********************************************************************^ 


void  Pex_3_28() 

{ 

wcloseallO; 
following28( ); 


/ 

*************************************************************** ********y’ 
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/*  this  routine  calls  example_3_29  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

i ***********************************************************************/ 

void  Pex_3_29() 

( 

wcloseall(); 

following29(); 

} 

/ 

******************************************  *****************************/ 
/*  this  routine  calls  theorem_3_6  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

***********************************************************************/ 
void  Pthm_3_6( ) 

I 

wcloseallQ; 
follow  ingthni_3_6( ) ; 

) 

/ 

***********************************************************************/ 
/*  this  routine  calls  theorem_3_7  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

***********************************************************************^ 
void  Ptlun_3_7() 

{ 

wcloseall(); 

thm_3_7(); 


/ 

******************************************************************,,,*.4,*,^ 

/*  this  routine  calls  definition_3_15  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 
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! 


/ 

void  Pdef_3_15() 

( 

wcloseall(); 

definition_3_15(); 

) 

/ 

***********************************************************************/ 
/*  this  routine  calls  Welsh_Powell  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/ 

void  PWelsh_Powell() 

I 

wcloseall(); 

Welsh_Powell(); 

1 

/ 

***********************************************************************/ 
/*  this  routine  calls  exercise  1  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

/ 

**  +  +  +  *****  +  ****  +  +  ******  +  +  *  +  ***+*!t<***>t<  +  *:4<  +  ******  +  +  **Jt<***  +  *  +  ********  +  *  +  **y 

void  PexerciselO 

I 

wcloseall(); 
exercise  1(); 

} 

/ 

***********%************************************%*****%****************/ 
/*  this  routine  calls  exercise2  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  are  pressed.  */ 

/ 

♦  ★♦♦lie***#**************#*#*********************************************/ 

void  Pexercise2() 
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wcloseall(); 

exercise2(); 

) 

/ 

*****i(<*!Mt***!(ci(t****j|t********;(t***********j(<*  +  *!(<***^<*******+*i(<***;4<#!|<i<*****+y 

/*  this  routine  calls  exercise3  routine  whenever  PageUp  or  *j 

/*  Page  down  keys  are  pressed.  */ 


/ 

void  Pexercise3() 


wcloseall(); 

exercise3(); 


/ 


’l**************^ 


/*  this  routine  calls  exercise4  routine  whenever  Pageup  or  +/ 

/*  Page  down  keys  are  pressed.  */ 


/ 

****  +  *  +  *. fr****************************************************  **********/ 
void  Pexercise4() 

( 


wcloseallO; 

exercise4(); 
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#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

/***********************.,..,.******************************** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

***  *  *  *  *  *  *  *  ***  *  *********  *  *  **  *  *  4c  *  **  ***  4c  *  *  **  *  >|C  *  *  *  4c  *  *  *  1|(  4c  *  ****  / 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 


ifc*************************************** ********* 

FUNCTION  DEFINITIONS 

**************************************************/ 


void  wait(char  title[]); 
static  void  example_3_22  (void); 
void  confirm_graph_exit(void); 
void  normal_exit(void); 
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/************************************************** 
MAIN  PROGRAM 

**************************************************/ 


main() 

l 

els  (1); 

adapt  =  getAdapterO; 
if  (adapt  == ’V’) 

( 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

} 

example_3_22(); 

setMode(3); 


) 
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/ 

*****111  ***********************************************************,1,*****^ 
static  void  example_3_22(void) 

{ 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,210,310, -200,1 1); 

drawline  (-100,70,-150,30,11); 
drawLine  (-150,30,-150,-30,11); 
drawline  (-150,-30,-100,-70,11); 
drawLine  (-100,-70,-50,-30,1 1); 
drawLine  (-50,-30,-50,30,11); 
drawLine  (-50,30,-100,70,1 1); 
drawLine  (100,70,50,30,11); 
drawLine  (50,30,50,-30,1 1); 
drawLine  (50,-30,100,-70,11); 
drawLine  (100,-70,150,-30.11); 
drawline  (150,-30,150,30,11); 
drawLine  (150,30,100,70,11); 


aspect  =  1.0; 

fillOval(- 100,70,3, 16,aspect); 
fillOval(- 1 50,30,3, 1 6,aspect); 
fiilOval(- 1 50,-30,3, 16,aspect); 
fillOval(- 1 00,-70,3, 1 6, aspect); 
fillOval(-50, -30,3, 16, aspect); 
fill  Oval(- 50,30,3, 16,aspect); 
fill0val(100,70,3,20,aspect); 
fi!10val(50,30,3, 1 8, aspect); 
fill0val(50,-30,3,20,aspect); 
fillOval(  100,-70,3, 1 8, aspect); 
fill0val(150,-30,3,20,aspect); 
fillOval(150,30,3,18,aspect); 
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write_horz_char  (-1 10,85,65,31);  /*  A  */ 
write_horz_char  (-160,30,66,31);  /*  B  */ 
writc_horz_char  (-160,-30,67,31);  /*  C  */ 
write_horz_char  (-110,-70,68,31);  /*  D  */ 
write_horz_char  (-45,-30,69, 31);  /*  E  */ 
write_horz_char  (-45,30,70,31);  I*  F  */ 


write_horz_char  (90,85,65,20);  /*  A  */ 
write_horz_char  (40,30,66,18);  /*  B  */ 
write_horz_char  (40,-30,67,20);  /*  C  */ 
write_.horz_.char  (90,-70,68,18);  /*  D  */ 
write_horz_char  (155,-30,69,20);  /*  E  */ 
write_horz_char  (155,30,70,18);  /*  F  */ 


write_horz_str(- 1 20,-90, "Figure  (a)", 3 1 ); 
write_horz_str(80,-90,"Figure  (b)",3 1); 

write_horz_str(-300, 1 80,"The  graph  in  Figure  (a)  has  chromatic" 

"  number  2  since  the  vertices  A,  C",31); 
write_horz_str(-300,160,"and  E  can  be  colored  with  one" 

"  color  (red)  and  the  other  three  vertices",31); 
write_horz_str(-300,140,"with  a  second  color  (green)" 

"  as  shown  in  Figure  (b).  In  general,  if',31); 
write_horz_str(-300,120,"a  cycle  has  even  number  of  vertices” 

",  then  it  can  be  colored  using  2  colors. ",31); 


wait("  Example  3.22 "); 


} 
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/ 


***********************************************************************/ 


void  wait(char  title[]) 

{ 

int  tab, width, line, mode; 

mode  =  getMode(&width); 

if  ((mode  =  Oxl  1)1!  (mode  ==0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(ti  tie, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringO'Press  any  key  to  continue  WHITE.O); 

getch(); 

cls(O); 

} 


/ 


******************** ***************************************************/ 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kb!ist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  ==  Y)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)»  { 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getch  (); 


switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinitQ; 
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normal_exit(); 

break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  V: 

break; 

case  ’N’: 
break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


/ 


***********************************************************************/ 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/ 


♦fc*********************************************************************^ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 
gotoxy_(crow,ccol) ; 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 

} 
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#include  <stdio.h> 
#include  <math.h> 
#include  <dos.h> 
#include  <conio.h> 
#include  "gtools.h" 
#include  "gdraws.h" 
#include  "colors.h" 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#include  "cxlwin.h" 


I***** **************************************************** 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

lit*******************************************************/ 


char  adapt; 
int  color  =  2; 


int  LINEWIDTH=1; 


unsigned  long  int 
double  aspect; 


/*********************************************** 
*  * 

*  FUNCTION  DEFINITIONS  * 

*  * 

**********************************************/ 


void  wait(char  title[]); 
static  void  example_3_23  (void); 
static  void  confirm _graph_exit(void); 
static  void  normal_exit(void); 
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/************************************************** 
MAIN  PROGRAM 

**^t*********************************************f 


main() 

{ 

cls(l); 

adapt  =  getAdapter(); 
if  (adapt  =  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

1 

} 

example_3_23(); 

setMode(3); 


} 

/ 


***********************************************************************/ 


static  void  example_3_23(void) 

{ 

LINE  WIDTH  =  3; 


cls(l); 

drawRect(-309,2 1 0,3 1 0,-200, 1 1 ); 
drawLine  (-100,70,-150,30,1 1); 
drawLine  (- 1 50,30,- 1 50,-30, 1 1 ); 
drawLine  (-150,-30,-50,-30,1 1); 

I 
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drawLine  (-50,-30,-50,30,1 1); 
drawLine  (-50,30,-100,70,1 1); 
aspect  =  1.0; 

fillOval(- 100,70,3, 1 6,aspect); 
fxllOval(- 1 50,30,3, 1 6,aspect); 
fillOval(- 1 50,- 30,3, 1 6,aspec  t) ; 
fU10val(-50,-30,3, 1 6, aspect); 
fillOval(-50,30,3, 1 6,aspect); 

drawLine  (100,70,50,30,11); 
drawLine  (50,30,50,-30,11); 
drawLine  (50,-30,150,-30,11); 
drawLine  (150,-30,150,30,11); 
drawLine  (150,30,100,70,1 1); 
fill0val(100,70,3,20,aspect); 
fillOval(50,30,3, 1 8, aspect); 
fill0val(50,-30,3,20,aspect); 
fillOval(  1 50,-30,3, 1 8,aspect); 
fill0val(150,30,3,30,aspect); 

write_horz_char  (-1 10,85,65,31);  /*  A  */ 
write_horz_char  (-160,30,66,31);  /*  B  */ 
write_horz_char  (-160,-30,67,31);  /*  C  */ 
writeJiorz_char  (-45,-30,68,31);  /*  D  */ 
write_horz_char  (-45,30,69,3 1 );  /*  E  */ 

write_horz_char  (90,85,65,20);  /*  A  */ 

write_horz_char  (40,30,66,18);  /*  B  */ 

write_horz_char  (40,-30,67,20);  /*  C  */ 
write_horz_char(  155,-30,68, 18);  /*  D  */ 
write_horz_char  ( 1 55,30,69,30);  /*  E  */ 

write_horz_str(- 1 20,-50, "Figure  (a)", 3 1 ); 
write_horz_str(80,-50,"Figure  (b)",3 1 ); 

write_horz_str(- 300,-70, "When  a  cycle  has  odd  number  of 
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"  vertices,  such  as  that  in  Figure  (a)",31); 
write_horz_str(-300,-90,"then  3  colors  must  be  used.  If’ 

"  we  try  to  alternate  colors  with  the  color",31); 
write_horz_str(- 300,-1 10, "red  assigned  to  vertices  A" 

"  and  C,  then  it  is  not  possible  to  use",31); 
write_horz_str(-300,-130,"either  red  or  green  for  E.  Using" 

"  three  colors  to  color  a  cycle  with  an  odd",31); 
write_horz_str(- 300,- 150, "number  of  vertices  is  illustrated" 

"  in  the  Figure  above.",31); 

wait("  Example  3.23  "); 

} 


/ 


*3^********************************************************************/ 


void  open_matrix_paren(int  xl.int  yl,int  x2,int  y2,int  color) 

{ 


extern  unsigned  long  int  PATTERN; 
drawLine  (xl  ,yl,xl+5,yl, color); 
drawLine  (xl  ,yl,xl,y2,color); 
drawLine  (xl  ,y2,xl+5,y2,color); 
drawLine  (x2  ,yl,x2-5,yl,color); 
drawLine  (x2  ,yl,x2,y2,color); 
drawLine  (x2,y2,x2-5,y2, color); 

}  c* 

/ 


***********************************************************************/ 


void  wait(char  title[]) 

{ 

int  tab,width,line,mode; 

mode  =  getMode(&width); 

if  ((mode  ==  0x1 1)  II  (mode  ==  0x12)) 

line  =  29; 

else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
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writS  tring(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringO'Press  any  key  to  continue  WHITE, 0); 

getch(); 

cls(0); 

} 

/ 


***********************************************************************/ 


static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getch  0; 

} 

switch  (ch)  { 

case  y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 


case  ’n’: 

break; 


case  ’N’: 
break; 
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default :  break;  } 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 

/ 


*********************%*************************************************/ 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/ 


********4^*******************^****************************************^ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 
gotoxy_(crow,ccol) ; 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 

} 
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#include  <stdio.h> 
#include  <math.h> 
#include  <dos.h> 
#include  <conio.h> 
#include  "gtools.h" 
#include  "gdraws.h" 
#include  "colors,  h" 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#include  "cxlwin.h" 


^* ********************************************************* 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
*************************** *********************** *******^ 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=  1 ; 


unsigned  long  int 


double  aspect; 


/************************************************* 
FUNCTION  DEFINITIONS 

******************* *****************************/ 


void  wait(char  title[]); 
static  void  example_3_25  (void); 
static  void  confirm _graph_exit(void); 
static  void  normal_exit(void); 
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/************************************************* 

MAIN  PROGRAM 

*************************************************/ 

main() 

{ 

cls(l); 

adapt  =  getAdapter(); 
if  (adapt  =  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4): 

setCGAPalette(0); 

cls(l); 

} 

example_3_25(); 

setMode(3); 

} 

/ 

♦I**********************************************************************/ 

static  void  example_3_25(void) 

{ 

LINE  WIDTH  =  3; 
cls(l); 

drawRect(- 309,2 10,3 10,-200,1 1); 

drawLine  (-100,70,-1 10,40,1 1); 
drawLine  (-110,40,-150,20,11); 
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drawLine  (-1 10,40,-1 10,0,1 1); 
drawLine  (-110,40,-70,20,11); 
drawLine  (-70,20,-70,-10,1 1); 
drawLine  (-1 10,0,-150,-40,1 1); 
aspect  =  1.0; 

fiUOval(- 100,70,3, 1 6,aspect); 
fillOval(-l  10,40,3,16,aspect); 
fillOval(- 1 50,20,3, 1 6, aspect); 
fillOval(-l  10,0,3,16,aspect); 
fiUOval(-70,20,3,16,aspect); 
fiiiOval(-70,- 10,3, 1 6,aspect); 
fillOval(- 1 50,-40,3, 1 6, aspect); 

drawLine  (100,70,90,40,11); 
drawLine  (90,40,50,20,1 1); 
drawLine  (90,40,90,0,1 1); 
drawLine  (90,40, 1 30,20, 1 1 ); 
drawLine  (130,20,130,-10,11); 
drawLine  (90,0,50,-40,11); 
fill0val(100,70,3 ,20,aspect); 
fillOval(90,40,3 , 1 8,aspect); 
fill0val(50,20,3,20,aspect); 
fill0val(90,0,3,20,aspect); 
fill0val(130,20,3,20,aspect); 
fiUOval(  130,- 10,3, 18, aspect); 
fillOval(50,-40,3, 1 8,aspect); 
write__horz_char  (- 1 10,85,65,3 1 );  /*  A  */ 

write_horz_char  (-120,55,66,31);  /*  B  */ 

write_horz_char  (-160,20,67,31);  /*  C  */ 

write Jiorz_char  (-65,20,68,3 1 );  /*  D  */ 

write__horz_char  (-65,-10,69,31);  /*  E  */ 

write_horz_char  (-105,0,70,31);  /*¥*/ 

write_horz_char  (-145,-40,71,31);  /*  G  */ 

write_horz_char  (90,85,65,20);  /*  A  */ 

write_horz_char  (80,55,66, 18);  /*  B  */ 
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write_horz_char  (40,20,67,20);  /*  C  */ 

write_horz_char  (135,20,68,20);  /*  D  */ 
write_horz_char  (135,-10,69,18);  /*  E  */ 
write_horz_char  (95,0,70,20);  /*  F  */ 

write_horz_char  (55,-40,7 1,18);  /*  G  */ 

write_horz_str(- 1 30,-70, "Figure  (a)"  ,31); 
write_horz_str(80, -70, "Figure  (b)",3 1); 

write Jiorz_str(- 300,160, "The  graph  in  the  following  figure" 

"  can  be  colored  with  two  colors  as",31); 
write_horz_str(-300,140,"indicated  in  Figure  (b).",31); 
wait("  Example  3.25  "); 


/ 


***********************************************************************/ 


void  open_matnx_paren(int  xl,int  yl,int  x2,int  y2,int  color) 

{ 


extern  unsigned  long  int  PATTERN; 
drawLine  (xl  ,yl,xl+5,yl,color); 
drawLine  (xl  ,yl,xl,y2,color); 
drawLine  (xl  ,y2,xl+5,y2, color); 
drawLine  (x2  ,yl,x2-5,yl, color); 
drawLine  (x2  ,yl,x2,y2,color); 
drawLine  (x2,y2,x2-5,y2,color); 

) 

/ 


***********************************************************************/ 


void  wait(char  title[]) 

{ 

int  tab, width.line, mode; 
mode  =  getMode(&width); 

if  ((mode  =  0x1 1)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 
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tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 

writString(tide,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy  (tab, line); 

writStringC'Press  any  key  to  continue WHITE, 0); 

getch(); 

cls(0); 

) 

/ 

*************************************************************** v *******/ 

static  void  confirm_graph_exit(void) 

{ 

stnjct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(-80, 190,"  Please  type  y  or  n",31); 
ch  =  getch  (); 

) 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 
case  ’n’: 

break; 
case  ’N’: 
break; 
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default :  break;  } 
ifC_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/ 


*********************************************************************** j 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


/ 


***********************************************************************/ 


static  void  normal_exit(void) 

{ 

srestore(savescm); 
gotoxy_(crow,ccol) ; 
if(_mouse)  mshidecur(); 
showcur(); 
exit(0); 

} 
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#include  <stdio.h> 
#include  <math.h> 
#include  <dos.h> 
#include  <conio.h> 
#include  "gtools.h" 
#include  "gdraws.h" 
#include  "colors,  h" 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#include  "cxlwin.h" 


/*********  **********  ***************** 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

J*'*******1*,3*',t‘3,<*3,'*J,,3*‘****J*c**XeJ*‘****3i'********=(cJ|c=*:*J|c**J»t*****3|cJ#c3|cy 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH-1; 

unsigned  long  int  PATTER N=0xb  FF FFFFF; 
double  aspect; 


******a*,3*e*****J*'********5tc*;Jk**ak**3*catc***3jeJtcj*cjJ,^,3(c^CjJcjjej|c3(e^c=ic 

FUNCTION  DEFINITIONS 

*************************mik*iiimn,+*i'Xjij!+jtmltc*/ 


void  wait(char  title[]); 
static  void  example_3_26  (void); 
static  void  corfirm_graph_exit(void); 
static  void  normal _exit(void); 
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/************************************************* 
MAIN  PROGRAM 

************************* ^***********************^ 


main() 

{ 


els  (lv 

adapt  =  getAdapter(); 
if  (adapt  =  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

seiMcx3e(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

sttCGAPalette(O); 

cls(l); 

1 

examp  le_3_26(); 
se;Mode(3); 


***********************************************************************/ 
static  void  example_3_26(void) 

{ 

LINEWLDTH  =  3; 
cls(l); 

drawRect(-309,2 10,3 10,-200,1 1); 
drawLine(- 150, 100, 150, 100,1 1); 
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drawLine(150, 100, -150,0,1 1); 
drawLine(- 1 50,0, 1 50,0, 11); 
drawLine(  1 50,0,- 1 50,- 100, 1 1 ); 
dra  wLine(- 1 50,- 1 00, 1 50,- 1 00, 1 1 ); 
aspect  =  1.0; 

fillOval(- 1 50, 1 00,3, 1 6, aspect); 
fillOval( 1 50, 1 00,3, 1 6, aspect); 
fillOval(- 1 50,0,3, 1 6,aspect); 
fillOval(  1 50,0,3, 1 6, aspect); 
fillOval(- 1 50,- 100,3, 1 6,aspect); 
fillOval(  1 50,- 1 00,3, 1 6,aspect); 

write_horz_char(- 1 65, 100,65,3 1 );  /*  A  */ 

write_horz_char(  155,1 00,68,3 1 );  /*  D  */ 

write_horz_char(- 165,0,66,31);  /*  B  */ 

write_horz_char(  1 55,0,69,3 1 );  /*  E  */ 

write_horz_char(- 1 65,-100,67,3 1 );  /*  C  */ 

write_horz_char(155,-100, 70,31);  /*  F  */ 

write_horz_str(-300,180,"The  graph  in  the  following  figure" 

"  has  chromatic  number  2  since  the",31); 
write_horz_str(-300,160,"vertices  on  the  left  can  be  colored" 

’’  with  one  color  and  the  vertices",31); 
write_horz_str(-300,140,"on  the  right  can  be  colored  with  a" 

"  second.",31); 

wait("  Example  3.26  "); 

} 


/ 


***************************** ************************************* *****^ 


void  open_matrix_paren(int  xl,int  yl,int  x2,int  y2,int  color) 

{ 

extern  unsigned  long  int  PATTERN; 
drawLine  (xl  ,yl,xl+5,yl, color); 
drawLine  (xl  ,yl,xl,y2,color); 
drawLine  (xl  ,y2,xl+5,y2,color); 
drawLine  (x2  ,yl,x2-5,yl, color); 
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drawLine  (x2  ,yl,x2,y2, color); 
drawLine  (x2,y2,x2-5,y2,color); 

} 


/ 


***********************************************************************/ 


void  wait(char  title[]) 

{ 

int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  =  Oxll)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab,0); 
writString(title,  WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writStringO'Press  any  key  to  continue  WHITE, 0); 

getch(); 

cls(0); 

} 

/ 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getch  (); 

} 
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switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinitO; 
normal_exit(); 
break; 

case  ’Y’:  setMode(3); 
videoinitO; 
normal_exitO; 

break; 

case  ’n’: 

break; 

case  ’N’; 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 


/ 


s**********************************************************************^ 


/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/ 


***********************************************************************/ 


static  void  normal_exit(void) 

{ 


srestore(savescm); 
gotoxy_(crow,ccol ) ; 
if(_mouse)  mshidecur(); 
showcur(); 
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exit(O); 

} 
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/*  PROGRAM  :  thm3_6.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4, 1990 

REVISED  :  Mar.  5, 1990 

DESCRIPTION  :  This  program  contains  a  theorem  about  the  "Coloring  a 
Graph". 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors.h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


/******************************************************* 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
*******************************************************/ 


char  adapt; 
int  color  =  2; 


int  LINEWIDTH=1; 
unsigned  long  int 
double  aspect; 

static  int  *savescm,crow,ccol; 
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p i********** *************************************** 

FUNCTION  DEFINITIONS 

************************************ *************y 


void  wait(char  titleG); 
static  void  thm_3_6  (void); 
static  void  thm_3_6cont  (void); 
static  void  thm_3_6cont2  (void); 
static  void  confirm_graph_exit(void); 
static  void  normal_exit(void); 


/************************************************* 
MAIN  PROGRAM 

*************************************************/ 


main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 

cls(l); 

} 

if  (adapt  ==  ’E’) 

{ 

setMode(16); 

cls(l); 

} 

if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 

} 

thm_3_6(); 

setMode(3); 

) 
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/***********************************************************************y 

static  void  thm_3_6(void) 

{ 

/*******************************************************************/ 

/*  attach  [Pageup]  to  the  thm_3_6  function  */ 
setonkey(0x4900,thm_3_6,0); 

/*******************************************************************/ 

/*  attach  [Pagedown]  to  the  thm_3_6cont  function  */ 
setonkey(0x5 100,thm_3_6cont,0); 

/*******************************************************************/ 
LINE  WIDTH  =  3; 


cls(l); 

drawRect(- 309,2 1 0,3 10,-200, 11); 
drawLine(0,0,-20,-50,l  1); 
drawLine(-20,-50,-50,- 100,1 1); 
drawLine(- 20, -50,0,- 100,1 1); 
drawLine(0,0,30,-50,l  1); 
drawLine(30,-50,50,- 100,1 1); 


aspect  =  1.9; 

LINE  WIDTH  =  1; 

drawArc(0,- 100, 100,900,1 100,1 1, aspect); 
draw  Arc(0,- 1 00, 1 00, 1 200, 1 350, 1 1  .aspect) 
drawArc(0,- 1 00, 1 00, 1 420, 1 520, 1 1  .aspect) 
drawArc(0,- 1 00, 1 00, 1 580, 1 620, 1 1  .aspect) 
drawArc(0,- 1 00, 1 00, 1 7 1 5, 1 720, 1 1  .aspect) 


aspect  =  1.0; 
fillOval(0, 0,3,20,  aspect); 
fiUOval(-20,-50,3, 1 8, aspect); 
fillOval(-50,- 100,3, 20,aspect); 
fillOval(0,- 100,3, 20, aspect); 
fillOval(30,-50,3, 1 8, aspect); 
fillOval(50, -100,3,20, aspect); 
wnic_Iiui  (0,20,86,3 1 );  /*  V  */ 

write_horz_char(-55,- 105,87,3 1 );  /*  W  */ 
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wri  te_horz_str(  1 0,0,  "red "  ,20) ; 
write_horz_str(- 15, -50,  "green",  1 8); 
write_horz_str(-45,- 100,"red",20); 
write_horz_str(5,- 1 00,  ”red",20); 
write_horz_str(35,-50,"green" ,  18); 
write_horz_str(55,- 100,"red",20); 
write_horz_char(-60,-50,63,31);  /*  ?  */ 

write_horz_str(-300,190,"A  graph  G  has  no  cycle  of  odd  length" 

"  if  and  only  if  G  can  be  colored",31); 
write_horz_str(-300, 170, "with  two  colors.",31); 
write_horz_str(-300, 1 50,"Proof.  ",2 1 ); 
write_horz_str(-250,150, "Let’s  assume  that  G  has  no  cycles  of’ 

"  odd  length.  A  vertex  V  is",31); 

write_horz_str(-300, 130, "selected  and  the  color  red  is  assigned  to  it." 

"  Then  to  each  vertex  adjacent",31); 
write_horz_str(-300,110,"to  V  the  color  green  is  assigned.  Now  the" 

"  vertices  adjacent  to  the  recently".31); 
write_horz_str(- 300,90, "colored  green  vertices  are  assigned  the" 

"  color  red.  Can  one  of  these  red",31); 
write_horz_str(-300,70, "vertices,  say  W,  be  adjacent  to  the  vertex" 

"  V,  which  also  has  color  red?",31); 
write_horz_str(-300,50,"The  diagram  in  the  following  Figure" 

"  illustrates  this  situation.",3l); 

wait(""); 

thm_3_6cont(); 
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/****************************************************************** *****^r 

static  void  thm_3_6cont(void) 

{ 

^******** ************ ************************************** *******/ 

/*  attach  [Pageup]  to  the  thm_3_6  function  */ 
setonkey(0x4900,thm_3_6,0); 

^*  ******** ******************** ******************* *****************^ 

/*  attach  [Pagedown]  to  the  thm_3_6cont2  function  */ 
setonkey(0x5 100,thm_3_6cont2,0); 

/*** ************************************************* *************/ 


LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,2 10,3 10,-200, 1 1); 
drawLine(0,0, -20,-50,1 1): 
drawLine(-20,-50,-50,- 100,1 1); 
drawLine(- 20,-50,0,- 100,1 1); 
drawLine(0,0,30,-50,l  1); 
drawLine(30,-50,50,- 100, 1 1 ); 
drawLine(-50,- 100,- 100,- 1 50, 1 1); 
drawLine(-50,- 100,0,- 150,1 1); 
drawLine(0,- 100,50,- 150,1 1); 
drawLine(50,- 1 00, 1 00,- 1 50, 1 1 ); 

aspect  =  1.0; 
fill0val(0,0,3,20,aspect); 
fillOval(-20,-50,3, 1 8, aspect); 
fillOval(-50,-  100,3,20,aspect); 
fillOval(0,- 100,3, 20,aspect); 
fillOval(30,-50,3,l  8, aspect); 
fillOval(50, -100,3, 20, aspect); 
fillOval(- 100,-150,3, 1 8, aspect); 
fillOval(0,- 1 50,3, 1 8,aspect); 
fillOval(50,- 1 50,3, 1 8,aspect); 
fillOval(  100,- 150,3, 18,  aspect); 
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write_horz_char(10,15,86,31);  /*  y  */ 

write_horz_str(  1 0,0,  "red"  ,20); 
write_horz_str(- 15,-50, "green",  1 8); 
write_horz_str(-90,- 100,"red",20); 
write_horz_str(-30,- 100,"red",20); 
write_horz_str(35,-50, "green",  1 8); 
write_horz_str(65 ,-95 ,"red"  ,20) ; 
write_horz_str(- 1 1 0,- 1 60, "green",  1 8); 
write_horz_str(- 10,- 160, "green",  1 8); 
write_horz_str(40,-160, "green"  ,18); 
write_horz_str(90,- 1 60,  "green " ,  18); 

write_horz_str(-300,190,"We  see  that  if  V  and  W  were  adjacent" 

",  then  there  would  be  a  cycle  of  length",31); 
write_horz_str(- 300,170, "3.  In  a  similar  fashion,  any" 

"  other  vertex  just  colored  red  is  not  adjacent",31); 
write_horz_str(-300,150,"to  any  other  with  color" 

"  red,  for  otherwise  there  would  be  a  cycle  of  odd",31); 
write_horz_str(-300, 130,  "length.  Next  the  vertices  which  are" 

"  adjacent  to  those  just  colored  red  are”,3 1 ); 
write_horz_str(-300,l  10,"assigned  the  color  green.  Again" 

"  if  any  two  vertices  colored  green  were",31); 
write_horz_str(-300,90,"adjacent,  then  there  would  be  a" 

"  cycle  of  odd  length.  Continue  by  coloring",31); 
write_horz_str(- 300,70, "red  the  vertices  adjacent  those" 

"  colored  green  vertices.  As  before  none  of',31); 
write_horz_str(-300,50, "these  newly  colored  vertices  can  be" 

"  adjacent  to  a  previously  colored  red",31); 
write_horz_str(-300,30,"vertex.  This  process  is  repeated" 

"  until  there  are  no  uncolored  vertices",31); 
write_horz_str(-300,10, "adjacent  to  color  vertices.",31); 
wait(""); 
thm_3_6cont2(); 


} 
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/*************************************************************** ****** **/ 
static  void  thm_3_6cont2(void) 

{ 

/*****************************************************************/ 


/*  attach  [Pageup]  to  the  thm_3_6cont  function  */ 
setonkey(0x4900,thm_3_6cont,0); 

/*****************************************************************/ 
/*  attach  [Pagedown]  to  the  normal_exit  function  */ 
setonkey(0x5 100,normal_exit,0); 

/******************************************** ************* ********/ 


LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,210,310,-200,l  1); 
drawLine(0,0,-20,-50, 1 1 ); 
drawLine(-20,-50,-50,- 100,1 1); 
drawLine(-20,-50,0,- 1 00, 1 1 ); 
drawLine(0,0,30,-50, 1 1 ); 
drawLine(30,-50,50,- 100,1 1); 
drawLine(- 50,- 100,- 100,-1 50, 1 1); 
drawLine(-50,- 1 00,0,- 1 50, 1 1); 
drawLine(0,- 100,50,- 150,1 1); 
drawLine(50,- 1 00, 1 00,- 1 50, 1 1 ); 

aspect  =  1.0; 
fill0val(0,0,3,20,aspect); 
fillOval(-20,-50,3, 1 8,aspect); 
fillOval(-50,- 100,3, 20,aspect); 
fill0val(0,-100,3,20,aspect); 
fillOval(30,-50,3, 18, aspect); 
fill0val(50,-100,3,20,aspect); 
fiUOval(- 100,-1 50,3, 18,aspect); 
fillOval(0,- 1 50,3, 1 8,aspect); 
fillOval(50,- 1 50,3, 1 8 .aspect); 
fi!10val(100,-150,3, 18, aspect); 
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write_horz_char(10, 1 5,86,3 1 );  /*  V  */ 

write_horz_str(10,0,"red",20); 
write_horz_str(- 1 5,-50,"green",  1 8); 
write_horz_str(-90,- 1 00,  "red  ",20); 
write_horz_str(-30,- 100,  "red", 20); 
write_horz_str(35,-50,  "green  ”,18); 
write_horz_str(65,-95,"red",20); 
write_horz_str(- 1 10,- 160,  "green",  18); 
write_horz_str(- 10,- 1 60, "green",  1 8); 
write_horz_str(40,- 1 60, "green " ,  18); 
write_horz_str(90,- 1 60, "green " ,  18); 

write_horz_str(-300,170,"If  the  graph  is  not  connected" 

",  then  there  will  be  vertices",31); 
write_horz_str(-300, 150, "that  are  not  adjacent  to  any  of  the" 

"  colored  vertices  and  hence  are" ,31); 
write_horz_str(-300,130,"uncolored.  For  these  vertices  the" 

"  above  process  is  repeated  again",31); 
write_horz_str(- 300,1 10,"using  the  colors  red  and  blue." 

"  Eventually  all  the  v^tices  can  be",31); 
write_horz_str(-300,90, "colored  with  two  colors.", 31); 
wait(""); 
normal_exit(); 

} 

void  wait(char  title[]) 

( 

int  tab,  width, line.mode; 

mode  =  getMode(&width); 
if  ((mode  ==  Ox  11)11  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 

writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
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gotoxy(tab.line); 

writStringO'Press  any  key  to  continue  WHITE,0); 
if(waitkey()=ESC)  confirm_graph_exit(); 
cls(O); 


} 


^***********************************************************************^ 


static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  Y)  N  (ch  -=  V)  It  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
write_horz__str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,"  ’’,31); 


} 

switch  (ch)  { 
case  Y :  normal_exit(); 
break; 

case  ’Y’;  normaLexit(); 
break; 

case  ’n,:write_horz_str(-300,-210,"  ”,31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ”,31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


455 


/***********************************************************************! 
/*  this  function  handies  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/*****************> ****************************************** ************^ 
static  void  normal_exit(void) 

{ 

setMode(3); 

videoinitQ; 

srestore(savescm); 

gotoxy_(crow,ccol) ; 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 


} 


#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxLkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h” 

#include  "cxlwin.h" 

^*  ******************************************************** 
GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

hit  color  =  2; 

hit  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

^*  *************************  ************^*****^dif*** 

FUNCTION  DEFINITIONS 

*************  +  ************»*************>i'***  +  **  +  ’iy 

void  waiKchar  title) )  t; 
static  void  exaniple_3  _27  (void); 
static  void  confirm_graph_exit(voidh 
static  void  normal  exit  (void); 
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MAIN  PROGRAM 

jk***********************************************^ 

main() 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

( 

setMode(0xl2); 

cls(l); 

) 

if  (adapt  ==  ’E’) 

I 

setMode(16); 

cls(I); 

) 

if  (adapt  ==  ’C’) 

( 

setMode(4); 
setCGAPalette(O); 
cls(l ); 

) 

exainple_3_27(); 

setMode(3); 

1 

static  void  exaniple_3_27(void) 

I 

LINE  WIDTH  =  3; 
cls(  1 ); 

drawRect(-309, 210. 310,-200.1 1 ); 

drawLinet  - 1 50.0,-50,0, 1 1 ); 
drawLinet- 1 50,0,- 150,-80, 1 1 ): 
drawLinet- 1 00,0,-100,-80, 1 1 ); 
drawLinet- 100,-80,-50,-80,1  I ): 
drawLine(- 1 00.-40.-50,-40, 1 1 ); 
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drawLme(-50,0, -50,-80, 1 1); 
aspect  =  1.0; 


fillOval(-150, 0,3, 16, aspect); 
f  illOval(-50.0,3 , 1 6, aspect); 
f  illOval(- 1 50, -80,3,1 6,  aspect); 
fill  Oval(- 100 ,0,3, 16, aspect); 
fillOval(- 100,-80,3, 16, aspect); 
fill0val(-50,-80,3, 1 6, aspect); 
f  illOval(- 1 00,-40,3 , 1 6, aspect); 
fillOval(-50,-40,3,16,aspect); 

drawLine(50,0, 150,0, 11); 
drawLine(50,0,50,-80,l  1 ); 
drawLine(  1 00,0, 1 00,-80, 11); 
drawLuie(  1 00,-80, 1 50,-80, 1 1 ); 
drawLine(  100,-40, 1 50,-40, 1 1 ); 
drawLine(  150,0, 150,-80, 11); 

fillOval(50.0.3, 1 8,aspect); 
fillOval(  150,0, 3, 18, aspect); 
filK)val(50,-80,3,20,aspect); 
fillOval(  1 00,0,3 ,20,aspect ); 
fillOval(  100, -80,3, 20,aspect); 
fillOval(  1 50,-80,3,1 8, aspect); 
fillOvaK  100,-40,3, 18,  aspect); 
fillOval)  l50,-40,3,20,aspect); 

write_horz_char(-45,0,65,31 ); 
write_horz  char(- 1  10,-40,66,31); 
write  Jiorz  chart  - 1 10,-80,68,3 1 ); 
write  _horz_char(- 1 60,-80,69,3 1 ); 
write  Jtorz_char( -45. -40,67,3 1 ); 
write  Ju»ix_char(- 160,0,70,3 1 ). 
write_horz_char(-45,-80,7 1 .3 1 ); 
write  _horz_char(  - 1 00. 1 5 ,86,3 1 ); 


/*  A*/ 
/*  D  */ 
/*  B  */ 
/*  E  */ 
/*€*/ 
/*  F  */ 
/*  G  */ 
/*  V  */ 
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write, 

write, 

write, 

write, 

write, 

write 


_char(  155,0,65, 18);  /*  A*/ 

_char(90,-40,66,l  8);  /*  D  */ 

_char(90, -80,68, 20);  /*  B  */ 

_char(40,-80,69,20);  /*  E  */ 

_cliar(  155, -40,67 ,20);  /*  C  */ 

_char(40,0,70,18);  /*  F  */ 

_char(155, -80,71, 18);  /*  G  */ 

_char(100,15,86,20);  /*  V  */ 


write_horz_str( 


write_horz_str( 


write_horz_str(- 


write_horz_str(- 


write_horz_str(- 


write_horz_str( 


wait("  Example 


300, 180, "The  coloring  process  is  started  by" 

"  selecting  a  vertex  V  and  coloring"  ,31); 

300, 160, "it  red.  Then  since,  F,  B,  and  A  are" 

"  the  vertices  adjacent  to  V,  the",31); 

300, 140, "color  green  is  assigned  to  them.  The" 

"  uncolored  vertices  adjacent  to  the", 31); 

300, 120, "green  colored  vertices  are  C,  D,  and  E" 

",  and  so  the  color  red  is  assigned”,3l); 

300, 100, "to  them.  Finally  the  vertex  G  is  an” 

"  uncolored  vertex  adjacent  to  red”, 31 ); 

300.80, "vertices  and  so  is  assigned  the  color” 

"  green.",31); 

3.27  "); 


void  wait(char  title[J) 

I 

int  tab.width. line  .inode; 
mode  =  getMode(&width); 
if  ((mode  ==  Ox  11)11  (mode  = 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(tit!e))/2; 
gotoxy(tab.O); 


=  0x12)) 
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writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writString(”Press  any  key  to  continue  WHITE, 0); 

getch(); 

cls(0); 


/********+******************+ 


static  void  confinn_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-80,2I0,"Quit  process,  are  you  sure  (y/n)?",31); 
cli  =  getch  (); 

while  (!((ch  ==  y )  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  —  ’N’)))  { 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getch  (): 

} 

switch  (ch)  { 

case  ’y *:  setMode(3); 
videoinit(); 
norma]_exiiO; 
break: 

case  ’Y':  setMode(3); 
videouiit(); 
normal_exit(); 
break; 
case  tf: 

break: 


case  ’N’: 


break: 

default  :  break;  ) 
if(_inouse&MS_CLlRS)  insshowcur( ); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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} 

/************ fr**********************************************************^ 

/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERJRORLEVEL  0.  */ 

/***********************************************************************/ 
static  void  normal_exit(void) 

( 

srestore(savescm); 

gotoxy_(crow.ccol); 

if(_mouse)  mshidecur(); 

showcurQ; 

exit(0); 
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#include  <stdio.h> 
#include  <math.h> 
#include  <dos.h> 
#include  <coiiio.h> 
#include  "gtools.h" 
#include  "gdraws.h" 
#iiiclude  "colors.h" 
#iiiclude  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#iiiclude  "cxlwin.h" 


/*  ******** * ****  **  **  *  *  *  *  *  *  *  *  **  *  *  *  *  *  ******  *  *  *  **  *  *  *  *  *  **  *  * * *  *  * 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 


FUNCTION  DEFINITIONS 


void  wait(char  title[]); 
static  void  example_3_28  (void); 
static  void  confLrm_graph_exit(void); 
static  void  normal_exit  (void); 
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I*  ************* a*********************************** 

MAIN  PROGRAM 

ifr*************************************************/ 


main( ) 

I 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V') 

I 

setMode(0xI2); 
cls(l ): 

} 

if  (adapt  ==  ’E’) 

I 

setMode(16); 
cls(  I ); 

) 

if  (adapt  ==  ’C’) 

I 

setMode(4); 

setCGAPalette(O); 

cls(l); 

I 

exatnple_3_28(); 

setMode(3): 

) 

static  void  exarnple_3_28(void) 

( 

LINEW1DTH  =  3; 
cls(  I ;; 

drawRect(-309,210,3 10,-200, 1 1 ); 
diawLuie(0, 0,-150, -100,1 1 ); 
diawLiiie(0,0, -50, -100,1 1 ); 
drawLine(0.0,:>0, -100,1 1 ); 
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drawLine(0.0, 150,-100, 1 1); 

aspect  =  1.0; 

fiJ10val(0,0,3,16,aspect); 

fill0val(-150,-100,3,16,aspect); 

fillOval(-50,- 1 00, 3,1 6, aspect); 

fill0val(50,-100,3,16,aspect); 

fill0val(150,-100,3,16,aspect); 

write_horz_str(-300. 1 80, "The  procedure  described  in  theorem" 

"  3.7  may  use  more  colors  than  are",31); 
write_horz_str(-300, 160, "really  necessary.  The  graph  in  the" 

"  following  Figure  has  a  vertex  of’,31); 
write_horz_str(-300, 140, "degree  4,  which  is  the  maximum  degree" 

",  and  so  by  theorem  3.7  can  be",31): 
write_horz_str(-300, 120,  "colored  using  1+4  =  5  colors." 

"  However,  we  have  already  seen  that",31); 
write_horz_str(-300,100,"it  can  be  colored  using  two  colors.", 31); 
wait("  Example  3.28  "); 


void  open_matrix_paren(int  xl,int  yl,int  x2,int  y2,int  color) 


extern  unsigned  long  int  PATTERN; 
drawLine  (xl  ,yl,xl+5,y l,color); 
drawLine  (xl  ,yl,xl,y2, color); 
drawLine  (xl  ,y2,xl+5,y2,color); 
drawLine  (x2  ,yl.x2-5.yl,color); 
drawLine  (x2  ,yl.x2.y2, color); 
drawLine  (x2,y2,x2-5,y2, color); 
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void  wait(cliar  title[J) 

I 

iiit  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Ox  11)  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writStringt  title,  WHITE, 0); 
tab  =  (width  -  33  )/2; 
gotoxy(tab.line); 

writString(" Press  any  key  to  continue  WHITE, 0); 

getch(); 

cls(0); 

I 

static  void  confinn_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_hor7_str(-80,210,"Quit  process,  are  you  sure  (y/n)?",31); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  =-  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
write_horz_str(-80,190,"  Please  type  y  or  n",31); 
ch  =  getcli  (  ); 

) 

switch  (ch)  ( 

case  ’y’;  setMode(3); 
videoinit(); 
noimal_exit(); 
break; 


466 


case  ’Y':  setMode(3); 
videoinit(); 
norma]_exit(); 
break, 

case  ’n’: 

break; 

case  ’N’: 

break; 

default :  break; 

) 

if(_mouse&MS_CURS )  msshowcur( ); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


I 


/*  this  function  handles  normal  termination.  The  original  screen  ami  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  normal_exit(void) 

( 

srestore(savescm); 
gotoxy_(crow  .ccol ); 
if(_mouse)  mshidecurO; 
showcuK ); 
exit(O); 
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#include  <stdio.h> 
#include  <math.h> 
#include  <dos.h> 
#include  <conio.h> 
#include  "gtools.h" 
#include  "gdraws.h" 
#include  "colors. h" 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#include  "exlwin.h" 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

I 

char  adapt; 

int  color  =  2; 

int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescrn,crow,ccol; 


^*  ******************************************************* 
FUNCTION  DEFINITIONS 

*******************************************************/ 
void  wait(char  title [J ); 
static  void  example_3_29  (void); 
static  void  ex3_29cont  (void); 
static  void  ex_3_29cont2  (void); 
static  void  ex_3_29cont3  (void); 
static  void  confimi_graph_exit(void); 
static  void  normal_exit(void); 
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MAIN  PROGRAM 

************************************************/ 

inain( ) 

{ 

els  (1); 

adapt  =  getAdapterQ; 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 
cls(  1 ): 

) 

if  (adapt  ==  ’E' ) 

I 

setMode(16); 
cls(  1 ); 

} 

if  (adapt  ==  ’C’) 

I 

setM«xle(4); 
setCGAPalette(O); 
cls(  1 ); 

I 

exaniple_3_29( ); 
setMode(3 ); 

) 

^***********************************************************************^ 
static  void  example_3_29(void) 

( 

^*  **********************************************************************/ 
/*  attacli  f  Pageup]  to  the  example_3_29  function  */ 
se  tonkey  (0x4900 ,exainple_  3  _29,0): 

/*  attach  (PagedownJ  to  the  ex3_29cont  function  */ 
setonkey(0x5 100.ex3_29cont,0): 

/***********************************************************************/ 

469 


LINE  WIDTH  =  3; 
cls(l); 

drawRect(-309,2 10,3 10,-200, 11); 


drawLine(-100, -50, -150,-100,1 1);  /*  AE  */ 

drawLine(-150,-100,-150,-150,ll);  /*  ED  */ 
drawLine(- 150,-1 50,-50,-150, 1 1 );  /*  DC  */ 
drawLine(-50,-150,-40, -100,1 1 );  /*  CB  */ 

drawLine(-40,-100, -100, -50,1 1);  /*  BA  */ 

drawLine(-100,-50,-100,-125,l  1);  /*  AG  */ 

drawLine(- 1 00,- 1 00,- 1 50,- 1 00, 1 1 );  /*  FE  */ 
drawLine(-100,-100,-150,-150,l  1);  /*  FD  */ 

aspect  =  i  .0; 

fillOval(- 100,-50,3, 16, aspect); 
fillOval(- 150,-1 00,3 , 1 6,aspect ); 
fillOval(- 1 50,-1 50,3 , 1 6, aspect); 
fillOval(-50.- 150,3, 16, aspect); 
fillOval(-40,- 100,3, 16, aspect); 
fillOvaI(- 1 00,- 1 25,3 , 1 6, aspect ); 
fillOval(- 1 00,- 1 00,3 , 1 6, aspect); 

write_horz_str(-130,-I65,"Figure  (a)",31); 


write_horz_char(- 1 00,-30,65 ,3 1 );  /*  A  */ 
write_horz_char(-35,- 1 00,66,3 1 );  /*  B  */ 
write_horz_char(-45,- 150,67,31);  /*  C  */ 

write_horz_char(- 165,- 150,68,31 );  /*  D  */ 
write_horz_char(- 165  ,-100,69,31);  /*  E  */ 
write_horz_char(-95,- 100,70,3 1 );  /*  F  */ 
write_horz_char(-95,-125,71,31);  /*  G  */ 


drawLine(  1 00,-50,50,-100, 1 1 ); 
drawLine(50,- 1 00,50,-1 50. 1 1  >; 
drawLine(50,- 150, 150,  -150,1 1 ); 
drawLine(l  50,-150,160,-100,1 1 ); 


/*  AE  */ 
/*  ED  */ 
/*  DC  */ 
/*  CB  */ 
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drawLine(  160,- 100, 100,-50, 11);  /*  BA  */ 
drawLine(  100, -50, 100, -125,1 1 );  /*  AG  */ 

cli  awLine(  100,- 100,50,- 100, 1 1);  /*  FE  */ 
<lrawLine(  100, -100, 50, -150,1 1 );  /*  FD  */ 


fill0val(100,-50,3,16,aspect); 
fiUOval(50,- 1 00,3 , 1 6, aspect ); 
fillOval(50,- 150,3, 16, aspect); 
fillOval(  150,-150, 3, 16, aspect); 
fillOval(  1 60,- 100,3 , 1 6, aspect); 
fill  Oval(  100, -125, 3, 16, aspect); 
fillOval(  100,-1 00,3, 1 6,aspect ); 


write 


write 


write 

write 


write 


write 


_horz_char(  100,-30,86,31);  /*  V  */ 

horz_char(  107,-35,50,31);  /*  2  */ 

horz_char(  165,-100,86,31);  /*  V  */ 
_horz_char(172, -105, 53,31);  /*  5  */ 
horz_chai(155, -150, 86,31);  /*  V  */ 
_horz_cliar(  162,-155,54,3 1 );  /*  6  */ 
_horz_char(35,- 1 50,86,3 1 );  /*  V  */ 

Jiorz_char(42,- 1 55,52,3 1 );  /*  4  */ 

horz_chai  (32,-100,86,31);  /*  V  */ 

_horz_char(39,-105,51,31);  /*  3  */ 

horz_chai(  105, -100, 86,31);  /*  V  */ 
_horz_char(l  12,-105,49,31);  /*  1  */ 
horz_char(  105,-125,86,31);  /*  V  */ 
_horz_char(  1 12,-130,55,31);  /*  7  */ 
Jiorz_str(70,- 165, "Figure  (b)”,31); 


write_horz_str(-300.200,"For  the  graph  in  Figure  (a)  vertex" 

"  F  has  the  largest  degree,  namely,  !,",3 1 ); 
write_horz_str(-300,180,"and  so  F  is  given  the  label  VI.  Vertices" 

"  A,  D,  and  E  have  degree  3  and  so", 3 1 ); 
write_horz_str(-300,160,"are  assigned  labels  V2,  V3,  and  V4  in" 

"  some  random  manner.  Likewise,",31); 
write_horz_str(-300. 140, "vertices  B  and  C  with  degree  2  are” 


471 


"  assigned  labels  V5  and  V6.  Vertex  G’’,31); 
write_horz_str(-300,120,’’is  the  only  remaining  vertex  and  is" 

"  assigned  V7.  Tliis  is  shown  in  Figure  (b).",31); 
write_horz_str(-300,100,"  The  adjacency  list  form  of' 

"  representation  is  very  convenient  to  use  with", 31); 
write_horz_strt -300,80,"the  Welsh  and  Powell  algorithm." 

"  For  the  graph  in  Figure  (b),  the  adjacency",31); 
write_horz_str(-300,60,"list  representation  is  given  next.",31); 
wait(””); 
ex3_29cont(); 

} 

static  void  ex3_20cont(roid\ 

( 


/*  attach  [Pageup]  to  the  example_3_29  function  */ 
setonkey(0x4900,example_3_29,0); 

/*  attach  [Pagedown]  to  the  ex3_29cont  function  */ 
setonkey(0x5100,ex_3_29cont2,0); 

Ij'*:#**************:***:********#*********:******************)'**********^ 

LLNEW1DTH  =  3; 
cls(l ); 

drawRect(-309,2  i  0,3 1 0,-200, 1 1 ); 


drawLinef- 1 00,-50  - 150,-100,1 1 );  /*  AE  */ 

drawLine(-150,-100,  150,-150,11);  /*  ED  */ 
drawLine(- 150,- 150,-50,-1 50, 11);  /*  DC  */ 

drawLine(-50,-150, -40, -100,1 1);  /*  CB  */ 

drawLine(-40,- 100,- 100,-50, 11  V  /*  BA  */ 
drawLine(- 1 00,-50,-100.- 1 25 , 1 1 );  /*  AG  */ 

drawLinet - 1 00,- 1 00.- 1 50,- 1 00, 1 1 );  /*  FE  */ 
drawLine(-l  00.- 100,-150, -150. 11);  /*  FD  */ 
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aspect  =  !  .0; 

fiUOvaI(- 1 00,-50.3 , 1 6, aspect ); 
filiOval(- 1 50,- 1 00,3 , 1 6,aspect ); 
fi illOv  al(- 150,-1 50,3 , 1 6, aspect ); 
fillOval(-50.-150,3,16,aspect); 
fiUOvaK-40.- 100,3, 16, aspect); 
fiUOval(- 100,- 1 25,3, 16,aspect); 
fill0val(-100,-100,3, 16, aspect); 

write _horz_str(- 1 30,- 165, "Figure  (a)" ,3 1 ); 

write_horz_char(- 100,-30,65, 3 1 );  /*  A  */ 

write_horz_char(-35, -1 00,66,3 1 );  /*  B  */ 

write_liorz_char(-45,-150,67,31);  /*  C  */ 
write_horz_char(-165,-150, 68,31);  /*  D  */ 
write_horz_char(-165,-100,69,31);  /*  E  */ 
write_horz_char(-95 ,-100,70,31);  /*  F  */ 
write_horz_char(-95,- 125,7 1,31),  /*  G  */ 

drawLine(  1 00,-50.50,-100, 11);  /*  AE  */ 

tlrawLine(50.- 100,50.- 150, 1 1);  /*  ED  */ 

drawLine(50,- 1 50, 1 50,- 150,11 );  /*  DC  */ 

drawLuie(  150,-150,1 60,- 1 00, 1 1 );  /*  CB  */ 

drawLinet  160, -100, 100,-50, 11);  /*  BA  */ 

drawLine(  100.-50, 100,- 125, 11);  /*  AG  */ 

draw  Line  ( 1 00,- 1 00,50,- 1 00, 1 1 );  /*  FE  */ 
draw Line(  100, -100, 50, -150,1 1 );  /*  FD  */ 

fil!Oval(  1 00.-50,3, 1 6, aspect); 
fillOval(50.- 1 00,3 , 1 6, aspect  >; 
fillOval(50,- 1 50,3,1 6, aspect ); 
fillOvaK  1 50.- 1 50,3, 1 6, aspect ); 
fillUvalt  160,-100, 3, 16.asr>ect); 
fillOvaK  1 00,-125,3, 1 6, aspect ); 
fillOvaK  1 00,- 1 00,3.1 6.a- 
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write_horz_char(  100.-30,86,31);  /*  V  */ 

write_horz_char(  107,-35,50,3 1 );  /*  2  */ 

write_horz_char(165,-100,86,31);  /*  V  */ 

write_horz_char(172,-105,53,31);  /*5  */ 
write_horz_char(155,-150,86,31);  /*  V  */ 

write_horz_char(162, -155, 54,31);  /*  6  */ 

write_horz_char(35,-150,86,3I );  /*  V  */ 

write_horz_char(42,-155,52,31);  /*  4  */ 

write_horz_char(32,-100,86,31);  /*  V  */ 

write_horz_char(39,-105,51,31);  /*  3  */ 

write_horz_cbar(  105,-100,86,31);  /*  V  */ 
write_horz_char(l  12,-105,49,31 );  /*  1  */ 
write  Jiorz_char(  105 ,-125,86,3 1 );  I*  V  */ 
write  Jiorz_char(  11 2,- 130,55,31);  /*  7  */ 

write_horz_str(70, -165, "Figure  (b)",3 1 ); 

write _horz_str(-50,l 50," V  :V  ,V  ,V  ,V",11);  /**********************/ 
write_liorz_char(-43, 145, 49,1 1 );  /*  V1:V2,V3,V4,V7  */ 

write_horz_char(- 18,145,50,1 1 );  /*  */ 

write  Jiorz_char(7, 145,5 1,11);  /**********************i 

write_horz_char(32, 1 45,52, 1 1 ); 
write_horz_char(57, 145,55,1 1 ); 

write_horz_str(-50,130,"V  :V  ,V  ,V",1 1);  /*******************/ 
write Jiorz_char( -43, 125 ,50,1 1 );  /*  V2:V1,V3,V5  */ 

write_hoi7;_char(-18,125,49,l  1 );  /*  *1 

write  Jiorz_char(7, 125, 5 1,11);  /******************/ 

write_hojx_chai(32, 1 25,53, 1 1 ); 

write _horz_str(-50,l  10, "V  :V  ,V  ,V",11);  /**+*♦*******♦*♦*/ 
write Jiorz_chai(-43, 105, 51,1 1 );  /*  V3:V1,V2,V4  */ 

writeJiorz_char(-18, 105, 49,1 1 );  /*  */ 

write  ho*z_ehar(7, 1 05,50, 1 1 );  f*  */ 

write  Jiorz_char(32, 105,52,1 1 );  /****************/ 
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write_horz_sti  (-50,90,'  V  :V  ,V  ,V",11);  /****************/ 
write_hoiz_char(-43, 85,52,1 1 );  /*  V4:V1,V3,V6  */ 

write  Jiorz_char(-18,85,49, 11);  /*  */ 

write_horz_char(7,85,51,ll);  /****************/ 

write  Jhorz_char(32,85 ,54, 11); 


write_horz_str(-50,70,"V  :V  ,V",11); 
write_horz_char(-43,65,53,l  1 ); 
write_horz_char(-18,65,50,l  1 ); 
write_horz_char(7,65,54,l  1 ); 


/**************** 
/*  V5:V2,V6  */ 

I*  */ 


write_horz_str(-50,50,"V  :V  ,V",1 1); 
write_horz_char( -43,45, 54,1 1 ); 
write_horz_char(- 1 8,45 ,52,1 1 ); 
write_horz_char(7,45 ,53,11); 


/*******************/ 
/*  V6:V4,V5  */ 

^*  ******************/ 


write_horz_str(-50,30,"V  :V",11);  /*******************/ 

write_horz_char(-43.25,55,l  1 );  /*  V7:V1  */ 

write_horz__char(-18,25,49,l  1 );  /*******************/ 

wait(""); 
ex_3_29cont2(); 


/I*******************************:************************************:****/ 


static  void  ex_3_29cont2(void) 

( 

/*  attach  [Pageup]  to  the  ex3_29cont  function  */ 
setonkey(  0x4900,ex3_29cont  ,0); 

/*  attach  [Pagedown]  to  the  ex_3_29cont3  function  */ 
setonkey(0x5 1 00,ex_3_29conf3,0); 

^*  *****************  ********1<***jt1<*****************#******************J 

LINE  WIDTH  =  3; 
cls(  I ); 

drawRectt  - >05,2i0,3 10,-200,1 1 ); 
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drawLine(- 100,-50,-1 50,-100, 11);  /*  AE  */ 
drawLine(- 150,- 100,-1 50,-1 50, 11);  /*  ED  */ 
drawLine(- 150,- 150,-50,-1 50,1 1 );  /*  DC  */ 
drawLine(-50,- 150,-40,-1 00, 1 1 );  /*  CB  */ 

drawLine(-40,-l 00,-1 00,-50, 11);  /*  BA  */ 

drawLine(- 100,-50,- 100,- 125, 11);  /*  AG  */ 
drawLine(- 100, -100, -150, -100,1 1);  /*  FE  */ 
drawLine(- 100,- 100,-1 50,-1 50, 11);  /*  FD  */ 

aspect  =  1 .0; 

filiOval(- 1 00,-50,3, 16,  aspect); 
fillOval(- 1 50,- 1 00,3 , 1 6. aspect ); 
fillOval(- 150,- 150,3. 16,  aspect); 
filJOval(-50.-150,3, 16, aspect); 
fillOval(-40,- 1 00,3, 1 6,aspect); 
fillOvaK- 1 00,- 1 25,3, 1 6,  aspect ); 
fillOvaK- 1 00,- 1 00,3 , 1 6,  aspect ); 
write_horz_str(- 1 30,-1 65, "Figure  (a)" ,3 1 ); 

write_horz_char(-100,-30,65,31 );  /*  A  */ 
write_horz_char(-35,-100, 66,31 );  /*  B  */ 

write_horz_char( -45, -1 50,67,3 1 );  /*  C  */ 
write_horz_char(-165,-150,68,31);  /*  D  */ 
write_horz_char(- 165,- 100,69,3 1 );  /*  E  */ 
write  Jiorz_char(-95,- 100,70,31);  /*  F  */ 

write_horz_char(-95,-125,71,31);  /*  G  */ 

drawLine(  100,-50,50.- 100,1 1);  /*  AE  */ 

drawLine(50,- 100,50,-150.1 1);  /*  ED  */ 

dt  awLiue(50.- 1 50. 1 50,- 1 50, 1 1 );  /*  DC  */ 

drawLii>e(150.-150,160,-100,l  1 );  /*  CB  +/ 

drawLinet  160.- 100, 100,-50.1 1);  /*  BA  */ 

drawLine(  100.-50, 1 00.- 125.1 1);  /*  AG  */ 

drawLine(  100.- 1 00.50,-1 00, 1 1 );  I*  FE  */ 

drawLinet  100,-100.50,-150,11);  /*  FD  */ 


476 


fillOvaU  100,-50, 3, 16,  aspect); 

fill0val(50,-100,3, 16,  aspect); 

fillOval(50.-150,3,16,aspect); 

fillOval(150,-150,3,16,aspect); 

fill0val(160,-100,3,16,aspect); 

fiJJOval(  100,-1 25,3, 16, aspect); 

fil!0val(100,-100,3,16,aspect); 

write_horz_char(  100,-30,86,31);  /*  V  */ 

write_horz_char(107,-35,50,31 );  /*  2  */ 

write _horz_char(  165, -100, 86,31);  /*  V  */ 
write_horz_char(l  72,-105,53,31);  1*5  */ 
wiite_horz_char(  155,-1 50,86,31);  /*  V  */ 
write_horz_char(162, -155, 54,31 );  /*  6  */ 
write_horz_char(35, -150,86, 31 );  /*  V  */ 

write_horz_char(42,- 155,52,31);  /*  4  */ 

write_horz_char(32,- 100,86,31);  /*  V  */ 

write_horz_char(39,-105,5l,31 );  /*  3  */ 

write_horz_rhar(  105,-1 00,86,31 );  /*  V  */ 
write_horz_char(l  12,-105,49,31);  /*  1  */ 
write_lioiz_char(  1 05,-1 25,86,3 1 );  /*  V  */ 
write Jiorz_char(l  12,-130,55,31 );  /*  7  */ 
write_horz_str(70, -165, "Figure  (b)",31 ); 

write_horz_str(-300,200,”In  the  Welsh  and  Powell  algorithm" 

"  the  first  uncolored  vertex  in  the  list",31); 
write_horz_str(-300,180,"Vl,  is  given  the  color  red.  Then  we  go" 

"  down  the  list  looking  for  the", 31 ); 
write_horz_str(-300, 160, "next  vertex  which  is  not  adjacent  to  VI" 

",  that  is,  for  the  lowest",31); 

write_horz_str(-300, 140, "numbered  vertex  that  is  not  in  the  list” 

"  folowing  VI.  This  is  the  vertex  V5",31); 
write_horz_str(-300, 120, "which  is  assigned  the  color  red.  We” 

"  continue  down  the  list  looking  for  the", 31 ); 
write_horz_str(-300. 100, "next  vertex  which  is  adjacent  to  neither" 

"  VI  nor  V5.  Since  there  are  none,  we",31 ); 


write_horz_str(-300,80,"go  back  to  the  top  of  the  list  and  find" 

"  the  first  uncolored  vertex,  which  is’  ,31 ); 
write_horz_str(-300,60,"V2,  and  assign  it  the  color  green.  Then" 

"  the  next  uncolored  vertex  is  found", 31 ); 
write_hoir_str(-300, 40, "which  is  not  adjacent  to  V2.  This" 

"  is  V4  and  it  is  given  the  color"  ,31); 
write_horz_str(-300, 20, "green.  Continuing  in  this  same  manner" 

"  we  find  that  V7  is  the  next", 3 1 ); 
write_horz_str(-300,0, "uncolored  vertex  adjacent  to  neither" 

"  V2  nor  V4,  and  so  V7  is  assigned",31); 

wait(""); 

ex_3_29cont3(): 


*******  ********  ******************************************************* 
static  void  ex_3_29cont3(void) 


j *  k  **************  ******  ***  **********  *******************  ******  **^ 

/*  attach  fPageupl  to  the  ex_3_  29cont2  function  */ 
setonkey(0x4900,ex_3_29cont2,0); 

^********************^********************************************** 
/*  attach  |Pagedown]  to  the  nonnal_exit  function  */ 
setonkey(0x5 100.normal_exit,0); 

^*  **********  +  *  +  *******************************************  +  ******** *^ 
LINE  WIDTH  =  3; 

cist  I ); 

drawRectt  -309,2 10,3  i  0,-200, 1 1 ); 


drawLinef -100.-50,-150,-100,1 1 );  /+  AE  */ 

drawLinet- 1 50,-100,- 1 50,-1 50, 1 1 );  /*  ED  */ 
drawLinet- 150.- ’50,-50,- 150.1 1 );  /*  DC  *1 

drawLinet -50,- 150.-40,- 100,1 1 );  /*  CB  */ 

drawLine(-40,- 100,-1 00,-50, 11);  /*  B A  */ 

drawLinet- 1 00,-50  -100,-125,1 1);  /*  AG  */ 

drawLinet- 100, -100, -150, -100, 11);  /*  FE  */ 
drawLinet  -100,- 100,- 150,- 150,1 1 );  /*  FD  */ 
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aspect  =  1 .0; 

fillOval(-l  00,-50,3. 16,aspect); 
filiO  val(- 1 5(.' 1 00,3 , 1 6, aspect); 
fillOvaH- 1 50,- 1 50,3 , 1 6, aspect); 
fillOval(-50.- 1 50,3, 1 6, aspect); 
fillOval(-40.- 100,3, 16, aspect); 
fillOval(- 100,-1 25,3, 1 6, aspect); 
fillOval(- 1 00,- 1 00,3 , 1 6, aspect); 

write_horz_str(- 1 30.- 1 65, "Figure  (a)" ,3 1 ); 

write_horz_char(- 100,-30,65,3 1 );  /*  A  */ 
write_horz_char(-35,- 100,66,31 );  /*  B  */ 
write_horz_char(-45,-l 50,67,31 );  /*  C  */ 
wri«eJiorz_char(- 165,-1 50,68,3 1 );  /*  D  */ 
write jH)rz_char(- 165,- 100,69,31);  /*  E  */ 
write_horz_char(-95,- 100,70,31 );  /*  F  */ 
write_horz_char(-95,-125,71,31);  /*  G  */ 

drawLine(  100,-50,50,- 100,1 1 );  /*  AE  */ 

drawLine(50,- 1 00,50,- 1 50, 1 1 );  /*  ED*/ 

drawEiue(50, -150,150, -150,1 1);  /*  DC  */ 

drawLine(  1 50,- 1 50, 1 60,- 1 00, 1 1 );  /*  CB  */ 

drawLu>e(160, -100,100, -50,11);  /*  BA  */ 

drawLine(  100,-50, 100,-125, 11);  /*  AG  */ 

draw Line)  100, -100, 50, -100,1 1 );  /*  FE  */ 

dr->wLuie(  100, -100,50,- 150, 11);  /*  FD  */ 

fiUOval(  100,-50.3. 1C,  aspect); 
fillOval(50.- 100.3, 16,aspect); 
fillOval(50.-150,3,16,aspect ); 
fiUOval(150,-150,3,16,aspect); 
fillOvaH  1 60.- 1 00,3, 1 6,aspect ); 
fillOvaH  1 00,- 1 25,3 , 1 6, aspect ); 
fillOvaH  100,-100,3,16,aspect); 
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write _horz_char(  1 00,-30,86,3 1 );  /*  V  */ 

write  Jiorz.  char(l 07, -35, 50,3  i );  1*2  */ 

write _horz_chai r(  1 65,- 1 00,86,3 1 );  /*  V  V 
write_horz_char(172, -105, 53,31);  /*  5  */ 
write_horz_char(155,-150,86,3 1 );  /*  V  */ 
write_horz_char(  162.- 155,54,31);  /*  6  */ 
write_horz_char(35,-l50,&n,31 );  /*  V  */ 

write  _horz_chai  (42,- 155,52,30;  1***1 
wiite_hoix_chai(3°  ’00,86,31);  /*  V  */ 

write Jiorx_char(39, -105 ,5 1,31);  /*  3  */ 

write Jiorz_char(  105,-100,86,31);  /*  V  */ 
write_horz_char(l  12,-105,49,31);  I*  1  */ 
write_horz_char(105,-125,86,3 ' );  /*  V  */ 
write  hoix  chart  1 12,-130,55,31 );  I*  7  */ 
write  hoix  str(70,- 165, "Figure  (b)",3l ); 

write  horz  str(-300, 1 80  "the  color  green.  Since  all  the  uncolored" 

"  vertices  are  adjacent  to  green", 31 ); 
write Jiorz_str(-300. 1 60, "vertices,  we  go  back  to  the  top  to" 

"  find  the  next  uncolored  vertex,  which" .31 ); 
write  horz_str(-300. 140, "is  V3,  ajid  assign  the  color  yellow." 

"  Suice  V6  is  uncolored  and  not", 31 ); 
write_hoix_str(-300,120,"adjacent  to  V3,  it  is  assigned  the" 

”  color  yellow.  So  the", 3 1 ); 

write  horz_strt-300, 1 00,"graph  can  be  colored  with  3  colors. ", 31 ); 
normal  exitt ); 


480 


y**^,*****  +  ^**  ****************>(<*****  ***4<*X«*********  **********  *********%* 
void  wait(char  uleU) 


int  !ab, width, line, mode; 
mode  =  getMoue'&width); 
if  ((mode  ==  Oxl  1)  II  (mode  ==  0x12)) 
line  =  29; 

else 

line  =  24; 

tab  =  (wklt1'  -  strlen(title))/2 
gotoxy(tab.O); 
writStringttitle,  WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writStringt  "Press  any  key  to  continue  WHITE, 0); 

if(waitkev(  >=~ESC)  confirm  _graph_exit(); 

cls(0); 


/*******************  <***************************+****++++++++++++++++%+4(^ 
static  void  confinn_graph_exit(vokl) 

I 

struct  onkey  t  *kblist; 
char  ch, 

kblist=ch"onkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur( ); 

write_horz_str( -300,-2 10, "Quit  example,  are  you  sure  (y/n)?”,79); 
ch  =  getch  (); 

while  (!((eh  ==  y’ )  II  (ch  =  V)  il  (ch  ==  ’Y\)  II  (ch  ==  ’N’)))  | 
write_horz_str(  30,-2 10,"  Please  type  y  or  n",79); 
ch  =  getch  ( ); 

write  Jiorz_str(30, -210,"  ’’.31); 

) 

switch  (ch)  ( 

case  -y  ':  nonnal_exit( ); 
break; 

case  ’Y’;  normal_exit( ); 


/*  PROGRAM  :  cql.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "coloring  a 
graph." 

MACHINE/COMPILER  :  This  program  is  written  with  EBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

#include  <stdio.h> 
include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. li" 

#include  "cxldef.h" 

^include  "cxlkey.h" 

#inc!ude  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 
**********************************************************/ 


f'liar  adapt.  Ch; 
int  color  =  2; 
int  LINEWIDTH=1; 

unsigned  long  int  PATTERN=0xFFFFFFFF; 
static  int  *savescm,crow,ccoI; 
double  aspect; 
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break: 


case  ’n’:write_horz_str(-300,-210,"  "31); 

break: 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 

default :  break; 

} 

if(_mouse&MS_CURS)  tnsshowcur(); 
chgonkey(kblist);  /*  restore  any  bidden  hot  keys  */ 


yf***********************************************************************/ 

/*  this  function  handles  nomial  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^*  ********************************************  *****  +  **-J<******:}:******  +  **:4y 

static  void  nonnal_exit(void) 


setMode(3); 

videoinitO: 

srestoie(savescrn); 

gotoxy_(crow.ccol ); 

if(_mouse)  mshidecur(); 

showcur(): 

exit(0): 

) 
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^***************************** ********* *********** 
FUNCTION  DEFINITIONS 

************************************************/ 


void  wait(char  title(J); 

void  question_l  (void); 

static  void  confirm_graph_exit(void); 

static  void  normal_exit(void); 


!+  ************************************************ 
MAIN  PROGRAM 

*************************************************/ 


main() 

I 

els  ( 1 ); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l): 

} 

if  (adapt  ==  'E’) 

{ 

set  Mode(  16); 
cls(l): 

} 

if  (adapt  ==  'C') 

{ 

setMode(4); 
setCGAPalette(O); 
cls(l ): 

1 

quest  ion_l(): 
setMode(3); 
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/♦fr****************************************************^,^^^^^^^^ 

static  void  question_l(void) 

( 

L1NEWIDTH  =  3; 
cls(J); 

drawRect(-309, 210, 3 10,-200,11); 

write_horz_str(-300,160,"  Find  the  chromatic  number  for  the  following" 

"graph.", 31); 

drawRect(-25.75,25,25,l  1 ); 
drawLine(-25 ,75,25, 25,1 1); 
drawLine(25 ,75 ,-25 ,25 , 1 1 ); 
drawLine(0, 1 00,-50,50, 1 1 ); 
drawLine(-50,50,0,0, 1 1 ); 
drawLine(50. 50,0,0,1 1 ); 
drawLine(50.50,0, 100, 1 1 ); 

aspect  =  1 .(); 

fillOval(0, 100,3, 16,aspect); 
fillOval(0,50.3, 1 6,aspect ); 
fiUOval(-25,75,3, 16,  aspect); 
fillOval(-50,50,3,16,aspect); 
fiUOval(-25,25,3,16,aspect); 
fillOval(0,0,3. 16, aspect); 
f  illOval(25 ,25 .3 , 1 6, aspect ); 
fil!0val(50,50,3, 1 6, aspect); 
fillOval(25,75,3, 1 6, aspect); 

write _horz_str(-300, 50,"  Choose  one  of  the  followings:",31); 
write_horz_str(-300.30,"  a)  3",31); 
write_horz_str(-300,10,"  b)  4",31); 
write_horz_str(-300,-10,"  c)  5",31); 
write _horz_str(-300,-30,"  d)  9",31 ); 

write_horz_str( -300,-60,"  Type  the  letter  of  which  you  believe” 

"  is  true — >",31); 

Ch  =  waitkeyt ); 

if(Ch==ESC)  confirm _graph_exit(); 


485 


while  (!((Ch  ==  ’a')  li  (Ch  =  V)  II  (Ch  ==  V)  II  (Ch  ==  ’d’)  ))  | 
write_horz_str(0,-80,"  Please  type  one  of  a,  b,  c,  or  d",31); 

Ch  =  getch  (); 

if  ((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)) 
write_horz_str(0,-80,"  ”,31); 


switch  (Ch)  ( 

case  ’a’  :write_horz_str(90,-60,"  a  ",31); 

write_horz_str(-300,-120,"  Yes,  because  the  graph  can  be” 

"  colored  with  3  colors  but  not  with  a",31); 
write_horz_str(-300,-140,"  smaller  number  of  colors.  Press" 

"  a  key  to  see  how.",31 ); 

break; 

case  ’b'  :write  horz_str(90.-60,”  b  ”,31); 

write_horz_str(-300,-I20,"  No,  the  answer  must  be  3  because 
"  the  graph  can  be  colored  with  3  colors",31); 
write_horz_str(-300,-140,"  but  not  with  a  smaller  number  of 
"  colors.  Press  a  key  to  see  how.",31); 

break; 

case  V  :write_horz_str(90,-60,"  c  ",3 1 ); 

write_horz_str(-300,-120,"  No,  the  answer  must  be  3  because 
"  the  graph  can  be  colored  with  3  colors",31); 
write_horz_str(-300,-140,"  but  not  with  a  smaller  number  of’ 
"  colors.  Press  a  key  to  see  how. ”,31); 

break; 

case  ’cl’  :write_horz_sti  (90,-60,"  d  ",31); 

write_horz_str(-300,-120,"  No,  the  answer  must  be  3  because 
"  the  graph  can  be  colored  with  3  co!ors",31); 
write_horz_str(-300,-140,"  but  not  with  a  smaller  number  of 
"  colors.  Press  a  key  to  see  how.", 3 1 ); 

break; 

default  :  break;  ) 
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getchO; 

f  i  110  val(0 , 1 00 .3 ,20 , aspect ) ; 

fi!10val(0,50.3,20,aspect); 

fillOval(-25,75,3,18,aspect); 

fillOval(-50, 50,3,20, aspect); 

fillOval(-25 ,25 ,3 ,30, aspect); 

fillOval(0, 0,3, 20, aspect); 

fillOval(25,25,3,J  8, aspect); 

fill0val(50,50,3,20,aspect); 

fillOval(25, 75.3, 30, aspect); 

wait(""); 

cls(O); 

> 

void  wait(chai  title[  | ) 

( 

nit  tab,width,line,mode; 
mode  =  getMode(& width); 
if  ((mode  ==  Oxl  1 )  II  (mode  ==  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title, WHITE, 0); 
tab  =  (width  -  33)/2; 
gotoxy(tab,line); 

writString(" Press  any  key  to  continue  WHITE, 0); 

if(waitkey(  )==ESC)  confinn_graph_exit(); 
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static  void  confinn_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’>  II  (ch  =  V)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  ( 
write_horz_str(30,-210,"  Please  type  y  or  n",79); 
ch getch  (); 

write  _horz_str(30,-2 10,"  ",3 1 ); 


) 

switch  (ch)  { 

case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’Y':  setMode(3); 
videoinit(); 
normal_exit(); 
break; 


case  ’n’:write_horz_str(-300,-210,"  ”,31); 

break: 

case  ’N’:write_horz_str(-300,-210,"  ”,31); 

break: 

default :  break; 


if(_tnouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  normal_exit(void) 

{ 

srestore(savescm); 
got  oxy_(  crow  ,ccol ); 
if(_mouse)  mshidecur(); 
showcurf); 
exit(0); 

} 


489 


/*  PROGRAM  :  cq2.c 
AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  This  program  contains  an  exercise  for  the  "coloring  a 
graph." 

MAC111NE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

#incluc1e  <stdio.h> 

#include  <math.h> 

#biclude  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#indude  "cxlstih" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


char  adapt.  Ch: 

uit  color  =  2; 

bit  LENEWIDTH=1; 

unsigned  long  bit  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  bit  *savescm.crow,ccol; 
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/************************************************* 
FUNCTION  DEFINITIONS 

*********************************************  ***^/ 


void  wait(char  title[j); 

void  question_2  (void); 

static  void  eonfirrn_graph_exit(void); 

static  void  nomnal_exit(void); 


main( ) 


/***** 


MAIN  PROGRAM 


************************************* ***********^ 


els  ( 1 ); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V') 

( 

setMode(0xl2); 

cls(l): 

) 

if  (adapt  ==  *E’) 

( 

setMode(16); 
cls(l ); 

I 

if  (adapt  ==  ’C’) 


setMode(4); 
setCGAPalette(O); 
cls(  I ); 

} 

question_2(); 

setMode(3); 

} 
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static  void  question_2(void) 


LINEWIDTH  =  3; 
cls(l); 

drawRect(-309,2 10,3 10,  200,11); 

write_horz_str(-300,160,"  Find  the  chromatic  number  for  the  following'' 

"  graph.",31); 

drawLine(0, 100, 100, 100,1 1); 
dra\vLine(0, 1 00, 1 00,50, 1 1 ); 
drawLine(0, 100, 100,0,1 1 ); 
drawLinedOO.lOO, 0,50,1 1); 
drawLine(  100. 100,0,0, 11); 
drawLine(0, 50, 100,50,11); 
drawLine(0, 50,100,0, 11); 
drawLine(  100.50,0,0, 11); 
drawLine(O.O.lOO.O.ll); 

aspect  =  1 .0; 

fill Oval(0, 100.3, 16,aspect); 
fill0val(.100. 100,3,16,aspect); 
fillOval(  100,50,3, 16,aspect); 
fillOvaKO,  50.3, 16,  aspect); 
fillOval(0,0.3. 16, aspect); 
fillOvaH  100.0.3, 16, aspect); 

write_horz_str( -300,50,"  Choose  one  of  the  followings:",31); 
write_horz_str(-300,30,"  a)  3",31); 
write_horz_str(-300,10,"  b)  5",3J ); 
write_horz_str(-300,-10,"  c)  2".31); 
write_horz_str(-300,-30,"  d)  4",31); 

write  Jiorz_str(-300, -60,"  Type  the  letter  of  which  you  believe" 

"  is  true — >",31 ); 

Ch  =  waitkey)); 

if(Ch==ESC)  confirm_graph_exit(); 
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while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b‘)  II  (Ch  ==  ’c’)  II  (Ch  =  Yf) ))  { 
write  Jiorz_str  (0,-80,"  Please  type  one  of  a,  b,  c,  or  d",3l); 

Ch  =  gelcli  (); 

if  ((Ch  ==  'a’)  II  (Ch  ==  V)  II  (Ch  =  V)  II  (Ch  ==  ’d’)) 
write_horz_str(0,-80,"  ",3 1 ); 


switch  (Ch)  ( 

case  ’c’  :write_horz_str(90,-60,"  c  ",31); 

write_horz_str(-300,-120,"  Yes,  because  the  graph  can  be” 

"  colored  with  2  colors  but  not  with  a",31); 
write_horz_str(-300,-140,"  smaller  number  of  colors.  Press" 

"  a  key  to  see  how.", 3 1 ); 

break; 

case  V  :write_horz_str(90,-60,"  b  ”,31); 

write_horz_str(-300,-120,"  No,  the  answer  must  be  2  because" 
"  the  graph  can  be  colored  with  2  colors", 3 1 ); 
write  _horz_str(-300,- 140,"  but  not  with  a  smaller  number  of 
"  colors.  Press  a  key  to  see  how.",31 ); 

break; 

case  ’a'  :write_horz_str(90,-60,"  a  ",31); 

write_horz_str(-300,-120,"  No,  the  answer  must  be  2  because" 
"  the  graph  can  be  colored  with  2  colors", 31 ); 
write_horz_str(-300,-140,"  but  not  with  a  smaller  number  of’ 

"  colors.  Press  a  key  to  see  how.", 3 1 ); 

break; 

case ’d’  :write_horz_str(90,-60,"  d  ",31); 

write  horz_str(-300,- 120,"  No.  the  answer  must  be  2  because" 
"  the  graph  can  be  colored  with  2  colors”,31); 
write_horz_str(-300,-140,"  but  not  with  a  smaller  number  of’ 

"  colors.  Press  a  key  to  see  how.",31 ); 

break; 

default  :  break;  ) 

getch(); 
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fillOval(0, 100,3, 20,  aspect); 
fiilOval(  1 00, 1 00,3, 1 8, aspect); 
fillOvaK  100.50,3, 18,  aspect); 
fiUOval(0,50,3 ,20, aspect); 
fiUOval(0, 0,3 .20,  aspect); 
fiUOvaH100,0,3,l  8, aspect); 

wail(’"'); 

cls(O); 

} 

void  wait(char  titled ) 

{ 

int  tab,width,line,mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxl  1 '  II  (mode  —  0x12)) 
line  =  2°; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writStringt  title,  WHITE.0); 
tab  =  (width  -  33), '2; 
gotoxy(tab.line); 

writStringt  "Press  any  key  to  continue  WHITE, 0); 

if(waitkey<  )==ESC)  confirm_graph_exit(); 


static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NllLL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur' ); 

write_horz_str< -300.-2 10, "Quit  process,  are  you  sine  (v/n)?",79); 
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ch  =  getch  < ): 

while  (!((ch  ==  'y')  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  *N’»)  ( 
write_horz_str(  30,-2 10,"  Please  type  y  or  n",79); 
cn  =  getcli  (); 

write_horz_str(30,-210,"  ”,31); 

} 

switch  (ch)  { 

case  ’y  :  setMode(3); 
videoinit(); 
nonnal_exit(); 
break; 

case  'Y':  setMode(3); 
videoinit(); 
nomial_exit(); 
break; 

case  n':write_horz_sti (-300,-2 10,"  ",3 1 ); 

break; 

case  ,N  :write_horz_str(-300,-210,"  ",31); 

break; 

default  ;  break; 

I 

if(_niouse&MS_CURS)  msshowcurO; 
chgonkey(kblist);  /*  restore  arty  hidden  hot  keys  */ 

I 

/tf**************************************************************  ******** 

/*  this  function  handles  normal  termination.  Tlte  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^*  *******  V ************************************************************** 

static  void  normal  exitt void) 

I 

srestoretsavesem); 
gotoxy_(crow.ccol); 
if(_inouse)  mshidecurt ); 
show  curt ). 
exittO »; 
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/*  PROGRAM  :  cq.Lc 
AUTHOR  .YavuzBAS 
DATE  :  Feb.  4,  1990 
REVISED  :  Mar.  5,  1990 

DESCRIPTION  This  program  contains  an  exercise  for  the  "coloring  a 
graph." 

MACHLNE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  Cinath  h> 

#include  «Jos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h” 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 

******+****  **r*’t'**>t'^  **  +  **♦  *  +  *  ***************  ******  ******/ 


char  adapt,  Ch; 

int  color  =  2; 

int  LINEW1DTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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/************************************************* 
FUNCTION  DEFINITIONS 

************************************************* I 


void  wait(char  title[J); 

void  question_3  (void); 

static  void  confirm_graph_exit(void); 

static  void  normal_exit(void); 


/**** ********************************************** 
MAIN  PROGRAM 

************************************  1 


main() 

( 

adapt  =  get  Adapter) ); 
if  (adapt  ==  ’V’) 

{ 

setMode(0xl2); 
cls(l ): 

1 

if  (adapt  ==  ’E’) 

( 

setMode)  16); 
cls(l); 

) 

if  (adapt  ==  ’C') 

{ 

setMode(4); 
setCG  APalette(0 ); 
cls(l ); 

1 

queotiun_3( ); 
setMode(3); 
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/******** *****************  ***************  *******************************/ 


static  void  question_3(void) 

I 

LINEWIDTH  =  3; 


cls(  1 ); 

drawRect(-309, 2 10,3 10,-200, 1 1 ); 

write_horz_str(-300,160,”  Color  the  graph  using  the  Welsh  and  Powell" 

"  algorithm. ",31); 
drawLine  (-100,40,-120,-30,11);  /*  AD  */ 
drawLine  (-120,-30,-70,10,11);  /*  DC  */ 

drawLine  (-70,10,-130,10,1 1);  /*  CB  */ 

drawLine  (-130,10,-80,-30,11);  /*  BE  */ 

drawLine  (-80,-30,-100,40,11);  /*  EA  */ 


aspect  =  1 .0; 

fillOval(- 100, 40,3, 16,aspect); 
fillOvaU- 1 20,-30,3 , 1 6, aspect); 
fillOval(-70.10,3,16.aspect); 
fihOval(-l  30,1 0,3, 16,aspect); 
fill0val(-80.-30.3, 16, aspect); 


write_horz_str(-300,-100,"  Press  a  key  to  see  the  coloring.",31); 
if(waitkey(  )==ESC)  confirm _graph_exit(); 


fillOvaU- 100,40, 3, 20, aspect); 
fill0val(-120,-30,3,30,aspect); 
fillOvaU  -70.10,3 ,20, aspect); 
fillOvaU- 1 30, 10,3 ,30, aspect); 
fillOval(-80,-30,3,18,aspect); 


wait("”); 

cls(0): 

} 
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y****************************************************  ********!(<**********/ 
void  wait(char  title[  J) 

{ 

int  tab,widtli4ine,mode; 
mode  =  getMode(&width); 
if  ((mode  =  Oxll)  II  (mode  ==  0x12)) 
line  =  29; 
else 


line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title,WHITE,0); 
tab  =  (width  -  33)/2; 
gotoxy(tab.line); 

writStringf  Press  any  key  to  continue  WHITE, 0); 

*f(waitkey(  )==ESC)  confinn_graph_exit(); 


^***********j|<***l|t***<!l|t*******j(<**l(<*j(<**!(<#***l(l*l(e****^t!)t******************j(t**^ 


static  void  confirrn_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgoiikey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-2I0,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ~=  ’Y’)  II  (ch  ==  ’N’)))  | 
write_horz_str(30,-2l0,"  Please  type  y  or  n",79); 
ch  =  getch  (); 

write_horz_str(30,-210,”  ",31); 

I 

switch  (ch)  | 

case  ’y’:  setMode(3); 
videoinit(); 
normal_exit(); 
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breJc; 

case  ’Y’:  setMode(3); 
videoinit(); 
normal_exit(); 
break; 

case  ’n’:write_horz_str(-300,-2i0,"  ”,31); 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 

default ;  break; 

) 

if(_tnouse&MS_CURS)  insshowcurO; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 


/******************%**********%**************************************%**/ 
/*  this  function  handles  normal  temiination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/I***********************************************************************/ 

static  void  nonnal_exit(void) 


srestore(savescm); 

gotoxy_(crow.ccol); 

if(_mouse)  inshidecur(); 

showcurO; 

exit(0); 

> 
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/*  PROGRAM  :  cq4.c 

AUTHOR  :  Yavuz  BAS 

DATE  :  Feb.  4,  1990 

REVISED  :  Mar.  5,  1990 

DESCRIPTION  :  This  program  contains  an  exercise  for  the  "coloring  a 
graph." 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo  C 
compiler  Version  2.0. 

*/ 

#include  <stdio.h> 

#include  <math.h> 

#include  <dos.h> 

#include  <conio.h> 

#include  "gtools.h" 

#include  "gdraws.h" 

#include  "colors. h" 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


^*  ********************************************************* 


GLOBAL  VARIABLES  USED  BY  GRAPHICS  FUNCTIONS 


************** 


********************************************^ 


char  adapt.  Ch; 

int  color  =  2; 

int  LENEWIDTH=1; 

unsigned  long  int  PATTERN=OxFFFFFFFF; 
double  aspect; 

static  int  *savescm,crow,ccol; 
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/************************************************* 
FUNCTION  DEFINITIONS 

************************************************/ 


void  wait(char  title □>; 

void  question_4  (void); 

static  void  confinn_graph_exit(void); 

static  void  normal_exit(void); 


^************************************************** 
MAIN  PROGRAM 

**************************************************^ 


inain( ) 

{ 

els  (1); 

adapt  =  getAdapter(); 
if  (adapt  ==  ’V’) 

I 

setMode(0xl2); 

cls(l); 


I 

if  (adapt  ==  ’E’) 

I 

setMode(I6); 

cls(l); 


if  (adapt  ==  ’C’) 

{ 

setMode(4); 

setCGAPalette(O); 

cls(l); 


question_4( ); 
setMode(3); 
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static  void  question_4(void) 

I 

LINEW1DTH  =  3; 

cls(l); 

drawRect(-309, 210,310, -200,11); 

write_horz_str(-300,160,"  Color  the  graph  using  the  Welsh  and  Powell" 

"  algorithm.",31); 
drawRect(-50, 1 30,50,50, 1 1 ); 
drawLine  (50,130,80.100,11); 
drawLine  (80,100,50,50,11); 
drawLine  (-50,130,80,100,11); 


aspect  =  1 .0; 

fillOval(-50, 130,3, 16, aspect); 
fillOval(-50.50,3, 1 6, aspect); 
fillOval(50. 1 30,3, 1 6,aspect); 
fillOval(50.50,3 , 1 6, aspect ); 
fillOval(80. 100.3, 16,aspect); 

write_horz_str(-300,-100,"  Press  a  key  to  see  the  coloring  ", 31 ); 
Ch  =  waitkeyO; 

if(Ch==ESC)  confinn _graph_exit(); 
fill0val(-50,130,3,20,aspect); 
fil!0val(-50.50,3,18,aspect); 
fillOval(50, 1 30,3 , 1 8  .aspect); 
fiUOval(50,50,3,20,aspect); 
fillOvaI(80, 100,3, 30, aspect); 

wait(""); 

cls(0); 
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void  wait(char  title[]) 


int  tab.width, line, mode; 
mode  =  getMode(&width); 
if  ((mode  ==  Oxl  1)  II  (mode  =  0x12)) 
line  =  29; 
else 

line  =  24; 

tab  =  (width  -  strlen(title))/2; 
gotoxy(tab.O); 
writString(title,WHiTE,0); 
tab  =  (width  -  33 )/2; 
gotoxy(tab.line); 

writString("Fress  any  key  to  continue  WHITE, 0); 

if(waitkey()==ESC)  confirm_graph_exit(); 


********************************* ft***********************************/ 

static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

write_horz_str(-300,-210,"Quit  process,  are  you  sure  (y/n)?",79); 
ch  =  getch  (); 

whUe  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  I 
write„horz_str(30,-210,"  Please  type  y  or  n",79); 
ch  =  getch  ( ); 

write  _horz_str(30,-210,"  ",3 1 ); 

I 

switch  (ch)  { 
case  ’y’:  setMode(3); 
videoinit(); 
nonnaI_exit(); 
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break; 

case  ’Y’:  setMode(3); 
videoinit(); 
nonnal_exit(); 
break: 

case  ’n’:write_horz_str(-300,-210,"  ",31>; 

break; 

case  ’N’:write_horz_str(-300,-210,"  ",31); 

break; 

default  ;  break; 

) 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


^* **************+*******************************************************// 

/*  this  function  handles  nonnal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/***********************************************************************/ 
static  void  nomial_exit(void) 

I 

srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecurO; 

showcur(); 

exit(0); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  props. c 
:  Atilla  BAKAN 
:  Feb.  4,  1990 
:  Apr.  16,  1990 


DESCRIPTION  :  This  program  contains  the  tutorial  for  the  basic  tree 
properties. 


MACHINE/COMPILER 


*/ 


This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 


/*  header  files  */ 

#include  <process.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

#if  defined! _ TLIRBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defmed(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b.c)  _dos_findfirst(a,c,b) 

#define  fintlnext(a)  _dos_findnext(a) 

#define  ffblk  Fuid_t 

#define  ff  najne  name 


506 


#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#defiiie  ff_name  name 

#define  ff_attrib  attribute 

#endif 

#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  add_shadow  (void); 

static  void  confirm_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  error_exit  (int  ermum); 

static  void  initialize  (void); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  normal_exit  (void); 

static  void  Pageup  (void); 

static  void  Pagedown  (void); 

static  void  press_a_key  (int  wrow); 

static  void  pre_help  (void); 

static  void  quit_window  (void); 

static  void  restore_cursor(void); 

static  void  short_delay  (void); 

static  void  size_window  (int  nerow,int  necol); 


/*  Tutorial  procedures  */ 
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static  void  prop_of_trees  (void); 
static  void  defmition_4_l(void); 
static  void  example_4_l  (void); 
static  void  theorem_4_l  (void); 
static  void  proof_4_l  (void); 
static  void  theorem_4_2  (void); 
static  void  proof_4_2  (void); 
static  void  theorem_4_3  (void); 
static  void  proof_4_3  (void); 
static  void  theorem_4_4  (void); 
static  void  proof_4_4  (void); 
static  void  theorem_4_5  (void); 
static  void  proof_4_5  (void); 
static  void  PI  (void); 

static  void  P2  (void); 

static  void  P3  (void); 

static  void  P4  (void); 

static  void  P5  (void); 

static  void  P6  (void); 

static  void  P7  (void); 

static  void  P8  (void); 

static  void  P9  (void); 

static  void  P10  (void); 

static  void  Pi  1  (void); 

static  void  Pi 2  (void); 

static  void  P13  (void); 

static  void  exercises  (void); 
static  void  exet  1  (void); 

static  void  exer2  (void); 

static  void  exer3  (void); 

static  void  exer4  (void); 
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/*  miscellaneous  global  variables  */ 

/*******%****************************+**********************************/ 
static  int  *sav;sc:n,ciow,ccol; 
static  W'NDOW  w[21]; 
static  char  ssan{10j; 

/***  *************************************************************%****/ 
/*  error  message  table  */ 

static  chai  *error_text[J=  { 

NULL,  /*  ermum  -  0,  no  error  */ 

NULL,  /*  ermum  -=  1 ,  windowing  error  */ 

"Syntax:  CXLDEMO  [-s witches ]\n\«" 

"\t  -c  =  CGA  snow  eliminationXn" 

"\t  -b  =  BIOS  screen  writingW 

”\t  -m  =  foice  monoclirome  text  attributes", 

"Memory  allocation  error" 


/*  miscellaneous  defines  */ 

#define  SHORT_DELAY  18 
#define  H_WINTITLE  33 

/*  this  function  will  add  a  shadow  to  tb~  active  window  */ 

static  void  add_shadow(void) 

( 

wshadowf  LC.REYLBLACK ); 
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/*  this  function  pops  open  a  window  and  confinns  that  the  user  ready  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 

/**********************************************************************/ 


static  void  confirm_quit(void) 

I 

struct  _onkey_t  *kblist; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(! wopen(9, 26,1 3,55 ,0,WHITELBROWN,WHrTEI_BROWN))  error_exit(l); 
add_shadow( ); 

wputs('Vi  Quit  demo,  are  you  sure?\033A\156Y\b"); 

clearkeysQ; 

showcur(); 

if(wgetchf("YN",’ Y’)==’Y’)  normal_exit(); 

wclosei ); 

hidecurO; 

if(_  iouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 

/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 

static  void  disp_sure_msg(void) 

{ 

wprints(0,2,WHlTEI_BLUE,''Are  you  sure?"); 


/a*********************************************************************/ 

/*  this  function  handles  abnormal  termination.  If  it  is  passed  an  */ 

/*  error  code  of  1 ,  then  it  is  a  windowing  system  error.  Otherwise  */ 

/*  the  error  message  is  looked  up  in  the  error  message  table.  */ 


static  void  error_exit(int  ermum) 

{ 


if  (ermum)  ( 

piintf(”\n%sNn",(errnum=l)?werrmsg():error_text[ermum]); 

exit(ermum); 


/**********************************************************************/ 
/*  this  function  initializes  CXL’s  video,  mouse,  keyboard,  and  help  systems  */ 

static  void  initialize(void) 

I 


/*  initialize  the  CXL  video  system  and  save  current  screen  info  */ 
videoinit(): 

readcur(&crow,&ccol); 
if((savescm=ssave())==NULL)  error_exit(3); 
if(msinit(»  { 
mssupport(MS_FULL); 
msgotoxy(  12,49); 

) 

/*  attach  [Alt-X]  to  the  confirm_quit()  function  */ 
setonkey(0x2d()0,confinn_quit,0); 

/*  attach  [Ctrl  PageupJ  to  the  PageupQ  function  */ 
setonkey(0x8400,Pageup,0); 

/*  attach  [Ctrl  PagedownJ  to  the  PagedownQ  function  */ 
setonkey(0x7600,Pagedown,0); 

/*  initialize  help  system,  help  key  =  [FI]  */ 
whelpef("CXLDEMO.HLP",Ox3bOO,YELLOWI_RED,LREDI_RED, 
WHITEI_RED,REDI_LGREY  ,pre_help); 
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static  void  pre_help(void) 

I 

add_shadow(); 

setonkey(0x2d00,confinn_quit,0); 


^tt********************************************************************^ 

/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

I*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^i**********************************************************************/ 

static  void  norma!_exit(void) 


srestore(saveccm); 

gotoxy_(crow.ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 


) 

I************* ************** ***#*#*********#**+*#**#*******+**********+/ 

/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

^fr*********************************************! fr***********************^ 

static  void  press_a_key(int  wrow) 

I 


register  int  attrl; 
register  int  aftr2; 


atti  l=(YELLOW)l((_winfo.active->wattr»4)«4); 
attr2=(LGRE  Y)l((_w  info,  active  ->wattr»4  )«4 ); 
wcenters(wrow,attrl /'Press  a  key"); 
wprints(wrow.O,LGREYI_RED,"Pgup/Pgdn"); 
hidecurO; 

if(waitkey()==ESC)  confirm_quitO; 
wcenters(wrow,attrl,"  "); 
wprints(wrow,0,atti2,"  "); 
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/***************************  +  *******  +  ****  4- ****  +  ***********  +  +  +  ****  +  *****/ 

/*  This  routine  causes  short  dealys  during  execution  */ 

j *  *  * *  * * ** * * * * * * *  * * * * * * * * + * * * * ** * * * * * * * * * * * * * * * * * * * * * * *  *  * * * * * * *  *  * * * * * * * *j 

static  void  short_delay(void) 

I 

delay  _(SHORT_DELAY); 

} 

/**********************************************************************/ 
/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  [Q]uit  menu  items.  */ 

/*********************************************************************+/ 
static  void  quit_window(void) 

I 

static  WINDOW  handle=0; 


if(handle)  { 
wactiv(handle); 

wcloseQ; 

handle=(); 


else  { 

handle=wopen(  14,41, 1 7,70, 0,YELLOWI_RED,WHITEI_RED); 
wputsC  Quit  takes  you  back  to  the'n  demo  program’s  main  menu."); 

) 

} 

/**********************************************************************/ 
/*  this  function  is  called  anytime  to  switch  back  to  previous  window.  */ 

/t***********************************************************,',********.',/ 

static  void  Pageup(void ) 

I 

static  WINDOW  handle; 

handle  =  whandlel ); 
wactiv(handle  -  1 ); 
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/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

y**********************************************************************/ 

static  void  Pagedown(void) 

( 

static  WINDOW  handle; 


handle  =  whandle(); 
wactiv(handle  +  1 ); 

) 


^fr********************************************************************/ 

/*  shows  the  cursor  again  if  it  has  been  hidden  */ 

y* *%*************%**********************%******************************/ 
static  void  restore_cursor(void) 

I 


wtextattr(WHITEI_MAGENTA); 

showcurO; 


/*  enlarges  or  shrinks  the  windows  */ 

y**********************************************************************/ 

static  void  size_window(int  nerow.int  necol) 

I 

wsize(nerow.necol); 
short_delay( ); 
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^*  *********************************************************************/ 
/*  moves  the  active  window  to  a  given  screen  coordinates  */ 

/■fr*********************************************************************/ 

static  void  move_window(int  nsrow,int  nscol) 


if (wmo  ve(nsro  w , nscol ) )  error_exit  ( 1 ) ; 
short_delay(); 


/*  +  ****************************************************************:*<***/ 
/*  main  routine  that  calls  basic  properties  of  trees  tutorial  */ 

void  mainO 

I 


initialized; 

prop_of_trees(); 


^*****j *****************************************************************/ 

/*  this  routine  that  calls  definition_4  !  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^**********************************************************************y 

void  P 1 0 


wcloseallO; 
definition_4  1(); 

I 


y**********************************************************************^ 
/*  this  routine  that  calls  prop_of_trees  routine  whenever  Pageup  or  Pagedown 
/*  keys  are  pressed. 

/********* ************************************************* ************/ 
void  P2() 


*/ 

*/ 


wcloseallO; 
prop_of_trees( ); 

) 
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/************************** ******** ****************************** ******/ 

/*  this  routine  that  calls  example_4_l  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y**********************************************************************^ 

void  P3() 

I 

wcloseallO; 

exaniple_4_l(); 

} 

^******************************** ****** ********************************/ 

/*  this  routine  that  calls  theorem_4_l  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^**********************************************************************^ 

void  P4( ) 

I 

wcloseallO; 

theorem_4_l(); 


/**********************************************************************/ 

/*  this  routine  that  calls  theorem_4__2  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^**********************************************************************/ 

void  P5() 

I 

wcloseallO; 
theorem_4_2( ); 

} 

J****************** *************** *************************************  f 

/*  this  routine  that  calls  theorem_4_3  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y* *********************************************************************/ 

void  P6() 

( 

wcloseallO; 
theorem_4_3( ); 

> 
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/*  this  routine  that  calls  theorem_4_7  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/**********************************************************************^ 
void  P7() 


wcloseallO; 
theorem_4_4( ); 

) 

/**********************************************************************/ 
/*  this  routine  that  calls  theorem_4_8  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

j1f  ***********; ft*********************************************************/ 

void  P8() 

I 

wcloseallO; 
theorem_4_5( ); 


y* *********************************************************************/ 

/*  this  routine  that  calls  exercises  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/*  ******  *  ***********************************************************,,,**/ 


void  P9() 

I 


wcloseallO; 

exercisesO; 


y********************************************,|<!(<i4<j(,>|<*j(<,),,|e,)«,),,(<,(,,)<]),,(<,(,,(,,(<,(<l)<,),l(,l(,,((,(,y 

/*  this  routine  that  calls  exercises  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

y^*******************************************************************^ 

void  PI OO 


wcloseallO, 

exerl(); 

) 
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/*  this  routine  that  calls  exercises  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^i.*********************************************************************/ 

void  PI  1() 


wcloseall(); 

exer2(); 


/♦I********************************************************************* ij 

/*  this  routine  tliat  calls  exercises  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

************  * ********************************************************/ 
void  P12() 


wcloseallO; 

exer3(): 

} 

/**********************************************************************/ 
/*  this  routine  that  calls  exercises  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

void  PI  30 

( 

wcloseallO; 
exer4( ); 

) 
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^******** *★★***★*★★**★*★***★★*★★★*★★★**★****  +  ;*********★*********  *******  j 

/*  This  routine  tells  about  the  basic  properties  of  the  trees.  It  gives  the  */ 

/*  definitions,  examples  and  theorems  about  the  trees.  */ 

J*  **:|<*:|<  ***********  ***  +  ★*!!<!)<*  ***+****************#***#  ***********  + 

static  void  prop_of_trees(void) 


register  int  *scrn; 


if((scm=ssave())==NULL)  error_exit(3); 
cclrscm(LGREYI_BLUE); 


/*  attach  [Pagedown]  to  the  definition_4_l()  function  */ 
setonkey(0x5 1 00, PI  ,0); 


if((wl  1  |=wopen(5,15,17,65,3,LCYANI_GREEN,WHITELCYAN))==0) 

error_exit(l); 

wtitle("( Properties  of  Trees]",TCENTER,_LGREYIBROWN); 

add_shadow< ); 

whelpcat(H_WINTITLE); 

wputs("\n"); 

wputsw("  Trees  are  very  iinportajit  class  of  graphs.  They  have  a  very  clean" 

"  set  of  properties,  which  are  summarized  in  Theorem  4.5.  In  tenns" 

"  of  applications,  tree  structures  appear  naturally  as  a  representation" 

"  vehicle  for  expression  evaluation  in  sorting  and  searching  problems," 

"  and  in  numerous  situations  where  hierarchical  representations  are" 

"  needed.  The  definition  of  a  tree  is  as  follows.”); 
press_a_key(  10); 
wslide(O.O); 
short_delay( ): 

/ft****************************************************************** ,*1 
definition_4_l(); 
srestore(scm): 


) 
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/*  Dummy  function  to  call  the  actual  definition  4.1  */ 

y*********************************************************************^ 

void  definition_4_l(void) 

I 

y********  ik******************** **************** *****************  ******y 

/*  attach  [Pageup]  to  the  prop_of_trees()  function  */ 
setonkey(0x4900,P2,0); 

y********************************************************************y 
/*  attach  [Pagedown]  to  the  example_4_l()  function  */ 
setonkey(0x5 1 00, P3 ,0 ); 

y********************************************************************y 

if((w[2]=wopen(5, 15,10,65, 3, LCYANI_GREEN,WHITELRED))==0) 

error_exit(l); 

wtitlef" l Properties  of  Trees  -  Definition_4_lj",TCENTER,_LGREYIBROWN); 
whelpcat(  H_WINT1TLE ) ; 
add_shadow( ); 
wputsf'Vi"); 

wputsw("  Def  :  A  connected  graph  T  is  a  tree  if  T  has  no  cycles"); 

press_a_key(3); 

short_delay( ); 

wdoseallO; 

y********** ****************************** ****************************y 

example_4_l(); 
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/♦if***************************************************************:!.***^ 

/*  Dummy  function  to  call  the  actual  example  4.1  */ 

/it*********************************************************************^ 

void  example_4_l(void) 

I 


/l**********************************#********************************:^ 


/*  attach  [Pageup]  to  the  definition_4_l()  function  */ 
setonkey(0x4900,Pl  ,0); 

/******************************************+*************★************/ 


/*  attach  |Pagedown]  to  the  theorein_4_l()  function  */ 
setonkey(0x5100,P4,0); 

***+**************************************************+******+*****++ 


if((w[3J=wopen(5,15,ll,65,3,WHITEI_BLACK,WHITEI_LGREY))==0) 

error_exit(l); 

wtitle(  "|  Properties  of  Trees  -  Example_4_l]",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

wputsl’Ni"); 

wputswf"  The  following  figure  shows  some  graphs  that  are  trees  " 

"  and  also  graphs  that  do  not  have  tree  properties"); 
press_a_key(4); 
short_delay( ): 
wcloseO: 


spa  wnl(P_WAJT."examp4 1  ,exe",NULL); 
cclrscm(LGREYI_BLUE); 
theorem_4_l  ( ); 
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/**********************************************************************/ 
/*  This  routine  gives  tire  first  theorem  about  the  trees.  Besides,  if  the  user  *i 

/*  wants,  it  gives  the  proof  for  this  theorem.  */ 

void  theorem_4  l(void) 


struct  _onkey_t  *kblist; 

/********************************************************************/ 

/*  attach  [Pageup]  to  the  example_4_l()  function  */ 

setonkey(0x4900,P3,0); 

********  |C  **********************************************************/ 

/*  attach  [Pagedown]  to  the  theorem_4_20  function  */ 
setonkey(0x5 100,P5,0); 

/*********************************************************************/ 

if((w[4]=wopen(2,4,9,7l,3,LCYANLGREEN,WiOTELLGREY))=-0) 

error_exit(l); 

wtit!e("[Properties  of  Trees  -  Theorem_4_l]",TCENTER,JVlAGENTAIWHITE); 
add_shadow( ); 
wheIpcat<H_WlNTlTLE); 
wputs(  "\nTheorem_4_  lVi" ); 

wputsw("ln  a  tree  is  exactly  one  simple  path  between  any  **vo  vertices."); 
press_a_key(5 ); 

kbIist=chgonkey(N(JLL);  /*  liide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9.20,13.55,0,BROWNI_CYAN,REDLBLACK))  error_exit(l); 
add_shadow( ); 

wputs(’\i  Do  you  want  to  see  the  proof?  M3.  \156Y\b"); 

elearkeysO; 

showcur( ) 

if(wgetchf("YN".*Y')=='Y’)  ( 
wclose(); 
proof  41  (  k 

I 

else  wclose(); 
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hidecur(); 

if(_mouse«VMS_CURS)  msshow-ur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
/******************************************************************** 
short_delay(); 
wcloseall(); 
theorem_4_2( ); 


/****************************** 


fc**************************************^ 


/*  This  routine  g'"es  the  proof  to  the  theorem_4_l.  */ 

/t************^,'******************************************************/ 


static  void  proof_4_l(void) 


Z^***********************************!'*******************************/ 


/*  attach  [Pageup]  to  the  example_4_l()  function  */ 
setonkey(0x4900.P3,0); 

/****************************************************************** 


/*  attach  [Pagedown]  to  the  theorem_4_2()  function  */ 


setonkey(0x3  100  P5,0); 

*************%***%**%***%*****%****** **%*********** 


*+**++***+*+****/ 


if((w[5]=wopen(9,4, 1 9,7 1 ,3,LCYANI_RED,WHITEI_  GREEN))==0)  error_exit(  1 ); 

wtitle("[Theorem_4_l  -  Proof]". TCENTER,_MAGENTAIWHITE); 

add_shadow( ): 

whelpcattH_WINTITLE); 

wputs('Vi"); 

wputswl”  Suppose  T  is  a  tree.  Thus,  by  Theorem  3.3  there  is  a  simple  path" 

"  between  any  two  vertices.  We  will  make  our  proof  by  way  of' 

"  contradiction.  Now  suppose  that  there  exist  2  distinct  simple  paths"); 
wputs("\n"); 

wputsf  U,  Ul,  U2,...,Uk,  V\n”); 

wputs("  U,  VI,  V2,...,Vm,  VVi"); 

wputsw("  Now  consider  the  following  graph."); 
press_a_key(8); 

spawnl(P_W  AIT, "exam  p42.exe", NULL); 
cclrscm(LGREYIBuUE); 
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y**********************************************************************^ 
/*  Tliis  routine  gives  the  tlieorem_4_2  about  the  trees.  Besides,  if  the  user  */ 

/*  wants,  it  gives  the  proof  for  this  theorem.  */ 


void  theorem_4_2(void) 

{ 


struct  _onkey_t  *kblist; 

^***********************************************************4i*it*:tc***>ty 

/*  attach  [Pageup]  to  the  theorem_4_l()  function  */ 
se  tonkey  (0x4900 ,P4 ,0 ) ; 

/*  attach  [Pagedown]  to  the  theorem_4_3()  function  */ 
setonkey(0x5 1 00.P6.0); 

/***************************  **********  I***********  **************  ******/ 


if((w[6|=wopen(3,4,10,71,3,LCYANLGREEN,WHITELLGREY))=0) 

error_exit(l); 

wiitle("[  Propei  ties  of  Trees  -  Theorem_4_2]",TCENTER,_MAGENTAIWHlTE); 
add_shadow( ); 
whelpcat(H_WINnTLE); 
wputs(  "\nTheorem_4_2\n" ); 

wputsw("  In  a  tree  T  with  more  than  one  vertex  there  are  at  least  two  vertices" 

"  of  degree  1 .  " ); 
press_a_key(5); 


kblist=chgonkey(NULL);  /*  n;de  any  existing  hot  keys  */ 
if(_mouse&MS__CURS)  mshidecurO; 

if(!wopen(9,20,13,55,0,BROWNI_CYAN,REDI_BLACK))  error_exit(l ); 
add_shadow( ); 

wputs("\n  Do  you  want  to  see  the  proof?  \033A\156Y\b"); 

clearkeysO; 

showcup); 

if(wgetchf( "  YN" Y ’  )==’ Y ’ )  ( 
wcloset ): 
proof_4_2( ); 


else  wclose( ); 
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hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


short_delay(); 

wcloseaIl(); 

theorem_4_3(); 


/*  This  routine  gives  the  proof  to  the  theorem_4_2.  */ 

^♦♦ik*******************************************************************^ 

static  void  proof_4_2(void) 


/*************************************  +  **************:4<**:4<:4<*  +  *********/ 

/*  attach  [Pageup]  to  the  theoreni_4_l()  function  */ 
setonkey(0x4900,P4,0); 

/♦i*******************************************************************/ 

/*  attach  [Pagedown]  to  the  theorem_4_3()  function  */ 
setonkey(0x5  1 00,P6,0); 

/ik*********************************#*********************************^ 

if((w[7|=wopen(l  1,4,2I,71,3,LCYANI_RED,WHITEI_GREEN))==0) 

error_exit(l); 

wtitle("[Theorem_4_2  -  Proof j",TCENTER,_MAGENTAI WHITE); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

wputs("\n"); 

wputsw("  Since  T  is  a  connected  graph  with  at  least  two  vertices,  there  is  a" 

"  simple  path  with  at  least  two  distinct  vertices.  Suppose  the  simple  path” 

"  with  the  maximal  number  of  edges,  is  say  from  U  to  V,  where  U  and  V  are" 

”  distinct.  If  U  has  degree  more  than  1,  then  since  T  has  no  cycles," 

"  a  longer  simple  path  would  exist;  we  can  make  the  same  argument" 

”  for  V  too.  Thus  U  and  V  have  degree  1."); 
press_a_key(8); 
short_delay( ); 
wclosei ); 

) 
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/********************************************************************* 

/*  This  routine  gives  the  theorem_4_3  about  the  trees.  Besides,  if  the  user  */ 

/*  wants,  it  gives  the  proof  for  this  theorem.  */ 

/**********************************************************************/ 
static  void  theorem_4_3(void) 

I 

struct  _onkey_t  *kblist; 

/***************************************************  *****************/ 

/*  attach  [Pageup]  to  the  theorem_4_2()  function  */ 

setonkey(0x4900,P5,0); 

y********************************************************************^/ 

/*  attach  [Pagedown]  to  the  theorem_4_4()  function  */ 
setonkey(0x5 100,P7,0); 

j*  *************************************************ii<****************Jty 

if((  w  [  8  ]= w  open(2 ,4 ,7 ,7 1 ,3  ,LC  Y  ANI_GREEN  ,WHITEI_LGREY )  )==0) 

error_exit(l); 

wtitle(" [Properties  of  Trees  -  Theorem_4_3]",TCENTER,_MAGENTAIWHITE); 

add_shadow( ); 

whel  pcat(  H_WINTITLE ); 

wputs("\n  Theorem_4_3\n"); 

wputsw("  A  tree  with  n  vertices  has  exactly  n  -  1  edges."); 
press_a_key(3); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  inshidecur(); 

if(!wopen(9,20,13,55,0,BROWNI_CYAN,REDI_BLACK))  error_exit(l); 
add_shadow( ); 

wputs('\n  Do  you  want  to  see  the  proof?  \033A\156Y\b"); 

dearkeysO; 

showcur)); 

if(wgetchf(" YN”,’ Y ’ )==’Y ’ )  [ 
wclose(); 
proof_4_3(); 

} 

else  wclosei ): 
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hidecurO; 

if(_mouse&MS_CURS)  msshowcur(); 


chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


short_delay(); 

wcloseall(); 

theorem_4_4(); 

) 
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j*  ******  ***  ************  sf:***  ******************************* *************y 

/*  This  routine  gives  the  proof  to  the  theorem_4_3.  */ 

/**********************************************************************^ 
static  void  proof_4_3(void) 

I 

/********************************************************************^ 


/*  attach  [Pageup]  to  the  theorem_4_2()  function  */ 
setonkey  (0x4900, P5 ,0) ; 

^********************************************************************^ 


/*  attach  [Pagedown]  to  the  theorem_4_4()  function  */ 
setonkey(0x5 1 00,P7,0); 

I******** **************  **********************************  ************iiy 


if((w[9]=wopen(8,4,23,71,3,LCYANI_RED,WHITELGREEN))==0)  error_exit(l); 

wt itle( " [Theorem_4_3  -  Proof]", TCENTER,_MAGENTAIWHITE); 

add_shadow( ); 

whelpcat(H_WINTiTLE); 

wputs('Vi"); 

wputsw("  Suppose  T  is  a  tree.  The  proof  will  be  done  by  induction  on  n," 

"  the  number  of  vertices.  We  will  first  consider  the  base  case," 

"  where  n  =  1 .  Because  since  this  graph  is  a  tree  there  may  not" 

"  be  any  loops  in  the  graph.  Hence  there  can  1  o  edges  in  a  tree" 

"  with  only  one  vertex,  the  theorem  holds  when  n  =  i  ."); 
wputs("Vi\n"); 

wputswf"  Now  assume  t'  ,  theorem  holds  for  a  tree  which  have  k  vertices." 

"  This  is  our  induction  hypothesis.  Now  for  the  inductive  step" 

"  we  will  prove  that  the  theorem  holds  for  a  tree  T  with  k  +  1" 

"  vertices.  We  know  that  by  Theorem  4.2  there  is  a  vertex  V  which" 

"  has  degree  1.  Now  suppose  we  remove  the  vertex  V  and  the  edge  on" 

”  V  from  the  graph  T  to  obtain  a  new  graph  T\  To  see  the  graphs...”); 
press_a_key(13); 
short_delay( ); 
wcloseallO; 

/******************************************************************** 


spa  will  ( P_W  AIT ,  ”e  xamp43  .exe  ",  N  U  LL ) ; 
cclrscm(LGREYI_BLUE); 
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^a********************************************************************/ 

/*  This  routine  gives  the  theorem_4_4  about  the  trees.  Besides,  if  the  user  */ 

/*  wants,  it  gives  the  proof  for  this  theorem.  */ 

static  void  theorem_4_4(void) 


struct  _onkey_t  *kblist; 


^4t****%**i(i*i(t**J(c*****J(<*******************************>|tJ(<*i('**1t'**********^ 


/*  attach  [PageUp]  to  the  theorem_4_3()  function  */ 
setonkey(0x4900,P6,0); 

/i******************************************************************** 


/*  attach  [Pagedown]  to  the  theorem_4_5()  function  */ 
setonkey(0x5100,P8,0); 

/•i;*****************************#*************************************/ 


if((w[10]=wopen(3,4112,71,3,LCYANI_GREEN,WHITELLGREY))=0) 

error_exit(l); 

wtiile("[  Properties  of  Trees  -  Theorem_4_4]",TCENTER,_MAGENTAIWHlTE); 
add_shadow( ): 
whelpcat(H_WlNTITLE); 
wput  s(  "Theorein_4_4\n" ); 

wputsw("  (a)  When  an  edge  is  removed  from  a  tree  (leaving  all  the  vertices)," 

"  the  resulting  graph  is  not  connected  and  hence  is  not  a  tree."); 
wputs("\n"); 

wputsw("(b)  When  an  edge  is  added  to  a  tree  (without  adding  additional  vertices)," 
"  the  resulting  graph  has  a  cycle  and  hence  is  not  a  tree."); 
press_a_key(7); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9, 20, 13.55, 0,BROWNI_CYAN,REDI_BLACK))error_exit(l); 
add_shadow( ); 

wputs("\n  Do  you  want  to  see  the  proof?  \033A\156YM?"); 

clearkeys(); 

showcur( ); 

if(wgetchf("YN”,’Y’)==’Y’)  ( 
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wclose(); 

proof_4_4(); 

) 

else  vvclose{): 
hidecur(); 

if(_mouse&MS_CURS)  insshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


short_delay(); 

wcloseallO; 

theorein_4_5(); 

I 
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/****************  *********************  Sit******************  *************  jfy 

/*  This  routine  gives  the  proof  to  the  theorem_4_4.  */ 

!** ********************************************************************* j 

static  void  proof_4_4(void) 

{ 

/*********************+**+*********************+***********+********+y 

/*  attach  [Pageup]  to  the  theorem_4_3()  function  */ 
setonkey(0x4900,  P6,0); 

/********************************************************************/ 

/*  attach  [Pagedown]  to  the  theorem_4_5()  function  */ 

setonkey(0x5100,P8,0); 

/***************************************>i<****>i<***%************%******/ 

if((w[ii  J=wopen(  1 3 ,4,2 1 ,7 1 ,3,LCYANI_RED,WHITELGREEN))==0) 


error_exit(l); 

wt itle( "  [Theoi  em_4_4  -  Proof]",TCENTER,_MAGENTAIWHlTE); 
add_shadow( ): 
whelpcat(  H_  WINTITLE ) ; 
wputs("\n"); 

wputsw("  If  an  edge  is  added  or  removed  from  a  tree,  the  resulting  new  graph" 

"  can  no  longer  be  a  tree  by  Theorem  4.3.  Since  removing  an  edge  cannot" 

"  create  a  cycle  nor  adding  an  edge  disconnect  the  graph,  both  parts" 

"  of  the  theorem  follow."); 
press_akey(6 ); 
short_delay(); 
wcloseO; 
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/+  This  routine  gives  the  theorem_4_5  about  the  trees.  Besides,  if  the  user  */ 

/*  wants,  it  gives  the  proof  for  this  theorem.  */ 

y**********************************************************************/ 

void  theorem_4_5(void) 

( 

struct  _onkey_t  *kblist; 


y********************************************************************^ 

/*  attach  [Pageup]  to  the  theorem_4_4()  function  */ 
setonkey(0x4900,P7,0); 

^fr****.********************************#*********#******#*************^ 

/*  attach  [Pagedown]  to  the  exercises()  function  */ 
setonkey(0x5 1 00,P9,0); 


if((w[12]=wopen(0,0,19,35,3,LCYANI_GREEN,WHrrEIJLGREY»==0)  er- 
ror_exit(  1 ); 

wtitlefl  Properties  of  Trees  -  Theorem_4_5  ] "  ,TCENTER  ,_M  AG  ENT  Al  WHITE) ; 

add_shadow(): 

whelpcat(H_WINTlTLE); 

wputs(,'\nTlieorem_4_5Vi"); 

wputs("(a)  T  is  a  treeW); 

wputsw("  (b)  Tliere  is  exactly  one  simple  path  between  each  two  vertices  in  T."); 
wputs('V’); 

wputsw("  (c)  T  is  connected  and  the  number  of  vertices  is  one  more  than" 

"  the  number  of  edges."); 
wputs("V); 

wputsw("  (d)  T  is  connected  and  removing  any  edge  disconnects  T.”); 
wputs(’VT); 

wputsw("  (e)  T  has  no  cycles  and  the  number  of  vertices  is  one  more  than" 

"  the  number  of  edges."); 
wputs("\n"); 

wputsw("  (f)  T  has  no  cycles  and  adding  any  edge  creates  a  cycle"); 
press_a_key(17); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  *> 
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if(_mouse&MS_CURS)  mshidecur(); 

it(!wopen(9,20,13,55,0,BROWNI_CYAN,REDLBLACK))  error_exit(  1 ); 
add_shaclow( ); 

wputs("\n  Do  you  want  to  see  the  proofs?  N03  3 A\156YN'b"); 

clearkeys(); 

showcur(); 

if( wgetchf( " YN" ,  ’  Y  ’  )==  ’ Y  ’)  { 
wclose(); 
proof_4_5(); 


} 

else  wclose(); 
hidecurO; 


if(_mouse&MS_CURS)  msshowcur(); 


chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


short_delay(); 
wclosealH); 
exercises! ); 


I 
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/*  This  routine  gives  the  proof  to  the  theorem__4_5.  */ 

y**********************************************************************^ 

static  void  proof_4_5(void) 


register  int  *scm; 


/********************************************************************/ 


/*  attach  [PageUp]  to  the  theorem_4_4()  function  */ 
setonkey(0x4900,P7,0); 


y*********************************! ******************** **%************/ 


/*  attach  [Pagedown]  to  the  exercises()  function  */ 
setonkey(0x5I00,P9,0); 

/********************************************************************/ 


if((scrn=ssave())==NULL)  error_exit(3 ); 

/********************************************************************| 

if((w|  1 31=wopen(0, 36, 9,79,3 ,LCYANLRED,WHITELCYAN))==0)  error_exit(l ); 

wtitle("[Theorem_4_3]",TCENTER,JV!AGENTAIWHlTE); 

add_shadow( ); 

whel  pcat(  H_WINTITLE); 

wputs(”\n"); 

wputsw("  We  will  prove  only  tliree  of  the  required  implications,  and" 

"  wait  you  to  prove  the  others.  The  important  thing  to  get  from" 

"  the  theorem  is  an  intuitive  feel  for  the  various  equivalent" 

"  statements.  Drawing  several  graphs  will  be  helpful."); 
press_a_key(7); 
wclose(); 

/********************************************************************/ 
if ( ( w  [  1 4  ]=wopen(0,3 6 , 1 5 ,7 9 , 3 ,LC  Y  AN  l_RED  ,WH  ITEI_C  Y  AN )  )==0 )  er- 


ror_exit(l); 

wtille("lTheorem_4_5  -  Proof]", TCENTER,_MAGENTAIWHnTE); 
add_shadow( ); 
whclpcat(H_WINTTrLE); 
wputs("\n(a)  =>  (b)\i"); 

wputsw("  This  implication  follows  from  two  seperate  statements  about" 
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"  connected  graphs  and  acyclic  graphs.  The  first  is  that  T  is" 

"  connected  if  and  only  if  there  exists  at  least  one  path  between" 

"  any  pair  of  vertices  in  T.  The  second  is  that  T  contains  a  cycle" 

"  if  and  only  if  there  exist  vertices  U  and  V  with  two  paths  between" 

"  them.  The  following  figure  illustrates  the  latter  statement."); 
press_a_key(  1 3); 
short_delay(); 
wcloseO; 

I* ******************************************************* +*****+*****/ 


spawnl(P_W  AIT, "examp44.exe", NULL); 
cclrscm(LGREYI_BLUE); 


srestore(scm); 


***/ 


if((scm=ssave( )  )==NULL)  error_exit(3 ); 

/********************************************************************/ 


if((w[  1 5]=wopen(0,36,24,79,3,WHITEI_RED,REDI_LGREY))==0)  error_exit(  1 ); 
wtitle("[Theorem_4_5  -  Proof]", TCENTER,_MAGENTAIWH1TE); 
add_shadow( ); 
whelpcat(H_WINT!TLE); 
wputs("(b)  =>  (c)\n"); 

wputsw("  If  there  is  exactly  one  path  between  any  pair  of  vertices  in  T," 

"  then  T  is  connected.  To  show  that  the  number  of  vertices  is  one" 

"  more  than  the  number  of  edges,  we  will  use  induction  argument  on" 

"  the  number  of  vertices  in  T,  and  we  will  denote  it  by  n.  To  do" 

"  so,  we  let  P(n)  be  the  following  assertion,  for  n  >=  1;"); 
wputs('Vi\n"); 

wputsw("  P(n) :  If  T  has  k  vertices,  1  <=  k  <=  n,  and  if  there  is" 

"  exactly  one  path  between  any  pair  of  vertices,  then  the  number" 

"  of  edges  in  T  is  k  -  1."); 
wputs(”\n\n"); 

wputsw("  For  the  base  step,  observe  that  if  n  =  1,  T  has  0  edges,  P(1 )" 

"  holds.  For  the  induction  step,  assume  that  P(n)  is  true  for  " 

"  some  n  >=  1 .  Let  T  be  a  graph  with  n  +  1  vertices  and  suppose" 

"  there  exists  exactly  one  path  between  any  pair  of  vertices.  " 

"  Now  consider  the  next  graph..."); 
press_a_key(22); 
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short_dcl  y(); 
wclose(); 

/********************************************************************/ 


spawal(P_WAJT,"exainp45.exe",NULL); 
cclrscm(LGREY  l_BLU  E); 
srestore(scm); 


/*  ****»********************************♦■'*♦*******************★**★*+*/ 

if((w[  161=wopen(0, 36,1 2,79,3 ,WHITEI  RED JREDI_LGREY))==0)  error_e*it(l); 

wtitleflTheoren  _  \_5  -  Proof]", TCENTER,_MAGENTAIWHITE); 

add_shadow(); 

whelpc  at(  H_WINTITLE ) ; 

wputs("\n(f)  =>  (a)\n"); 

wputsw("  Assume  tliat  (f)  is  true.  We  need  to  show  that  T  is  connected.  ” 

"  Suppose  U  and  V  are  vertices.  If  we  add  the  edge  {  U,  V  )  to  " 

"  graph,  our  hypothesis  implies  that  we  have  created  a  cycle." 

"  Because,  since  T  is  a  tree  and  U  and  V  are  in  the  T,  there" 

"  must  have  been  a  path  from  U  to  V  already.  Hence.  G  is  connected"); 
press_a_key(  10); 
short_delay(); 
wcloseall(); 
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/*  This  routine  makes  a  small  quiz  about  the  basic  properties  of  trees.  */ 

/***************  ******************+*4,+*4,i<**t'mjl,*j,ici,:t'j,lt,lt,i,!t,  *************/ 

void  exercises(void) 

I 

registei  int  *screen; 

/***************************************i'*mi,t,i,mn,1>,1mljtti'***Jk])l**iil!k*  f 

/ 

/*  attach  [Fageup]  to  the  theorem_4_5()  function  */ 
setonkey  (0x4900 ,  P8 ,0 ) ; 

/**************************  +  **4,#*****m+++mm,mil,)tlillj,#i,ll,*imlAljmlt'ltt/ 

/*  attach  [Pagedown]  to  the  exerl()  function  */ 

setonkev(0x5 100,P10,0); 

/**************************** 

if((w[17]=wopen(5,15,10,65,3,LCYANLGREEN,WHITELRED))=0) 

error_exit(l ); 

wtitlefl  Properties  of  Trees]", TCENTER.JLGREYIBF.OWN); 

whelpcat(H_WINTITLE); 

add_shadovv( ); 

wputs("\n"); 

wputsw("  We  have  completed  our  presentation  of  tliis  section.  Are" 

"  you  ready  for  a  pop  quiz  ?  '); 
press_a_key(3); 
short_de!ay( ). 
wcloseO; 

if((screen=ssave(  ))==NULL)  error_exit(3);  { 

/******  ******* :*'**********>t”t'******=i<>i<>i.***** *******************.  .^.*******y 

exer  1  ( ); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit(»  ( 
mssuppotl(MS_FULL); 
msgotoxyt  1 2,49); 


srestoref  screen); 


537 


/*********************************************************************,(y 

/*  Dummy  function  to  call  the  actual  exercise  4.1.1  */ 

/**********************************************************************/ 
static  void  exerl(void) 

I 

/**************************************************************+***+*/ 

/*  attach  [Pageup]  to  the  theorem_4_5()  function  */ 

setonkey(0x4900,P8,0); 

/*  attach  [Pagedown]  to  the  exer2()  function  */ 
setonkey(0x5100,Pl  1,0); 

if((w[18J=wopen(5,15, 10,65,3  ,LCYANLGREEN,WHITEI_RED))==0) 

error_exit(l ); 

wtitle("[Properties  of  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow( ); 

wputsCYi" ); 

wputsw("  Here  is  the  first  question.  "); 

press_a_key(  3  >; 

wcloset); 


spawnl(P_WAlT,"q41 1  exe”.NULL); 
cclrscnK  LGREYLBUJE); 
exer2(); 


/fc^*******************************************************************^ 

/*  Dummy  function  to  call  the  actual  exercise  4. 1 .2  */ 

/**********************************************************************y 
static  void  exer2(void) 

{ 

/**************«  I*****************************************************/ 

/*  attach  [Pageup]  to  the  exerl()  function  */ 
setonkey(0x4900,P10,0); 

/* ******************************************************* ************1 
/*  attach  [PagedownJ  to  the  exer3()  function  */ 
setonkey  (0x5 1 00, P 1 2,0); 

^%%%3fr^4;%^^^^^^34e^^afc%^^%^a^^^^^afe9feafe^c4(^e9tea|eafeafe3|(3|eat(afe^<3(ea4<4e3fc^e3|r3feafea|e3fe4<3feafe3|(%afea(e3|'a9e4c3feafc3(e3fc3fc3fey 

cclrscm(LGREYIJBLUE); 

if((w  [  1 9J=wopen(5 ,15,1 0,65 ,3  ,LC  Y  ANI_GREEN,WHITELRED))==0) 

error_exit(  1 ); 

w title( " [ Properties  of  Trees]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow( ); 

wputs('Vi"); 

wpulsw("  Second  question.”); 

press_a_key(? ); 

short_delay(); 

wclose(); 

spawnl(P_WAIT,"q4 1 2.exe", NULL ); 

cclrscni(LGREYI_BLUE); 

exer3(); 
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/*  Dummy  function  to  call  the  actual  exercise  4.1.3  */ 

y*************************%*:(<*******%**%:t<*****i|<*i)<*:|<***s|<****!(t**!|<*i|<*****:(y 

static  void  exer3(void) 

I 

/*****************+*+**+*+***+**********+**************+***+**+****++y 


/*  attacli  (Pageup]  to  the  exer2()  function  */ 
setonkey(0x4900,Pl  1 ,0); 


/♦i******************************************************************#/ 


/*  attach  [Pagedown]  to  the  exer4()  function  */ 


setonkey  (0x5 1 00,P  1 3 ,0); 


cclrscm(LGREYIBLUE); 

if((w  (20]=wopen(5, 1 5 , 1 0,65,3  ,LC  YANI_GREEN,WHITEI_RED))=0) 

error_exit(l ); 


wtitle("[Properties  of  Trees]", TCENTER.JLGREYIBROWN); 
whelpcat(H_WIN  ITl'LE); 
add_shadow( ): 
wputs(’V)"); 

wputswt"  Third  question."); 


press_p_!ey(3); 

short_delay(); 

wcloseO; 

spawnl(  P_W  AIT,"q4 1 3  .exe"  ,NU  LL); 
cclrscnK  LGREYI_BLUE); 
exer4(); 
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y** ******************************** ********************* ***************^ 

/*  Dummy  function  to  call  the  actual  exercise  4.1.4  */ 

/******* ******************************************************* ********/ 
static  void  exer4(void) 


/** ************************************************** ****************/ 


/*  attach  [Pageup]  to  the  exer3()  function  */ 
setonkey  (0x4900 ,  P 1 2 ,0 ) ; 

/********************************************************************/ 


cclrscm(LGREYI_BLUE); 

if((w[2 1  J=wopen(5 , 1 5 , 10,65,3  ,LCYANI_GREEN,WHITELRED))==0) 

error_exit(l ); 

wtitleC'l Properties  of  Trees]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTlTLE); 

add_shadow( ); 

wputs("\n"); 

wputsw("  Fourth  question."); 

press_a_key(  3 ); 

short_delay(); 

wcloseO; 

spawnl(P_WAIT,"q414.exe",NULL); 

cclrscm(LGREYLBLUE); 

normal_exit(); 
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/♦PROGRAM :  examp41.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  15, 1990 
REVISED  :  Apr.  15, 1990 

DESCRIPTION  :  This  routine  contains  examples  for  graphs  which  are 
trees/not  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h” 
#include  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defmed(_TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

tinclude  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  ! defined (_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#defme  ffblk  find_t 

#define  ff_name  name 

#elifdefmed(_ZTC__)  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#defme  ff_name  name 
#define  ff_attrib  attribute 
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#endif 

#define  _GRAPH_T_DEFINED 

I*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  example_4_l  (void); 


/*  graphic  initialization  variables  */ 

/**=*,***♦*******♦****************************************♦**************/ 
int  curr_mode; 
int  graphdriver; 
int  graphmode; 
int  graph_error, 
int  backcolor, 
int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX,  MaxY; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register_drivers(void) 

{ 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if  (re  gisterbgidri  ver(  ATT_dri  ver)  <  0)  exit(l); 

) 
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y**********************************************v***********************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/******>m**************************************************************/ 


static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

y*iM***4^************************************************************/ 


initgraph(&graphdriver,&graphmode,"">; 
graph_error  =  graphresult(); 


y********************************************************************y 


if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

y** ****** ************************************************************/ 


MaxX  =  getmaxx(); 

MaxY  =  getmaxy(); 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 


} 


544 


y**************#*******************************************************^ 

static  void  confirm_graph_exit(void) 

{ 


struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(quitcolor) ; 

kbIist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
ifLmouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  0; 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backco!or); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  *y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
setcolor(forecolor) ; 
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break; 


case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
setcolor(forecolor) ; 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/*- . - . . . . */ 

/*  This  function  sets  the  text  default  values  */ 

/* . - . -*/ 

static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZJDIR,CENTER_TEXT); 

} 


/* . - .  . - .  */ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/* . . — - . -  - - */ 

void  Pause(i.j) 
int  i,j; 

{ 

settext(); 

outtextxy(ij,"»PRESS  A  KEY  TO  CONTINUED'); 
if(waitkey()==ESC)  confirm __graph_exit(); 

} 
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/*******************************************************************£**/ 
/*  main  routine  that  calls  exer  routine  */ 

/**********************************************************************/ 
void  main() 

{ 


example_4_l(); 

} 


/**********************************************************************/ 
/*  This  routine  gives  examples  of  trees  and  some  graphs  that  are  not  trees.  */ 

/**********************************************************************/ 
void  examp!e_4_l(void) 

{ 

y*** ********************* **************************** ****************y 

init_graph(); 
setcolor(forecolor) ; 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2,"EXAMPLE  4-6- 1 "); 

/*************** ******************************** *********** * *********/ 


outtextxy(5*x,5*y,"  Graphs  that  are  trees"); 
pieslice(7*x,10*y,0, 359,2); 
pieslice(10*x,13*y,0,359,2); 
pieslice(  1 5*x,  1 3*y,0,359,2); 
pieslice(l  8*x,  10*y,0,359,2); 
pieslice(!8*x,16*y, 0,359,2); 
pieslice(7*x,16*y,0,359,2); 
pieslice(32*x,10*y,0,359,2); 
pieslice(37*x,10*y,0,359,2); 
pieslice(35*x,16*y,0,359,2); 
pieslice(39*x,  16*y,0,359,2); 
pieslice(42*x,10*y, 0,359,2); 
moveto(7*x,  1 0*y);  lineto(  10*x,  1 3*y); 
lineto(  1 5*x,  1 3*y);  lineto(  1 8*x,  10*y); 
moveto(  1 0*x,  1 3*y);  lineto(7*x,  1 6*y); 
moveto(15*x,13*y);  lineto(18*x,16*y); 
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moveto(32*x,  1 0*y);  lineto(35*x,  1 6*y); 
lineto(37*x,10*y);  lineto(39*x,16*y);  lineto(42*x,10*y); 
outtextxy(  1 1  *x,20*y,"(a)"); 
outtextxy(35*x,20*y,"(b)"); 

Pause(30*x,24*y); 


/************************************************************** ******/ 


outtextxy(MaxX/2+6*x,5*y,"  Graphs  that  are  not  trees"); 
pies!ice(MaxX/2+  5*x,10*y,0,359,2); 
piesiice(MaxX/2+  10*x,  1 2*y,0,359,2); 
pieslice(MaxX/2+10*x,14*y,0,359,2); 
pieslice(MaxX/2+15*x,  1 0*y,0,359,2); 
pieslice(MaxX/2+5*x,16*y,0,359,2); 
pieslice(MaxX/2+ 1 5  *x,  1 6*y  ,0, 359,2) ; 
pieslice(MaxX/2+30*x,  1 0*y  ,0, 359,2) ; 
pieslice(MaxX/2+30*x,  1 6*y,0,359,2); 
pieslice(MaxX/2+37*x,10*y,0,359,2); 
pieslice(MaxX/2+42*x,  1 6*y,0,359,2); 
piesiice(MaxX/2-i  27*x,12*y, 0,359,2); 
pieslice(MaxX/2+35  *x,  1 6*y,0,359,2); 
moveto(MaxX/2+5*x,10*y);  lineto(MaxX/2+10*x,12*y); 
lineto(MaxX/2+15*x,10*y); 

moveto(MaxX/2+5*x,16*y);  lineto(MaxX/2+10*x,14*y); 
lineto(MaxX/2+15*x,16*y); 

moveto(MaxX/2+30*x,10*y);  lineto(MaxX/2+27*x,12*y); 
lineto(MaxX/2+30*x,16*y);  lineto(MaxX/2+30*x,10*y); 
lineto(MaxX/2+37*x,10*y);  lineto(MaxX/2+35*x,16*y); 
lineto(MaxX/2+42*x,16*y); 
settextstyle(0,0,0); 

outtextxy(MaxX/2+ 1 1  *x,20*y,"(c)"); 
outtextxy(MaxX/2+30*x,20*y,"(d)"); 

outtextxy(MaxX/2+x,22*y,"  Not  connected");  /*  reasons  why  the  graphs  */ 
outtextxy(MaxX/2+25*x,22*y,"  Has  a  cycle”);  /*  that  are  not  trees.  */ 
/********^**************************+*******************************/ 


Pause(30*x,24*y); 

closegraph(); 

} 
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/*  PROGRAM  :  examp42.c 
AUTHOR  :  Atilla  BAKAN 
DATE  .  Apr.  16,  1990 

REVISED  :  Apr.  16,  1990 

DESCRIPTION  :  This  routine  contains  examples  for  graphs  which  are 
trees/not  trees. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 

*/ 

/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlmou.h” 

#include  "cxlkey.h" 

#if  defined! _ TURBOC _ ) 

#indude  <du  .h> 

#else 

#include  <diiect.h> 

#endif 

#if  defined! M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfust!a,c,b) 

#define  findnext(a)  _dos_fuidnext(a) 

#define  ffblk  find_t 

#define  ff_nanie  name 

#el  if  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 


/*  Turbo  C  */ 

/*  all  others  */ 
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#defuic  _G  RAP H_T_DEF1N ED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confinn_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  set***-*  (void); 


/*  tutorial  functions  */ 
static  void  example_4_2  (void); 


/*  graphic  initialization  variables  *,/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode: 

int  graph,  error: 

int  backcolor; 

int  forecolor, 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


/* - - - V 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/* - - - - - */ 

static  void  register  drivers( void) 

I 

if(registerbgidiiver(CGA_driver)  <  0)  exit(l  ); 
if(registerbgidi  iver(EGAVGA_driver)  <  0)  exit(l); 
if(iegisteibgidriver(ATT_driver)  <  0)  exit(l); 
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/**********************************************************************y 

/*  This  i option  initializes  the  necessary  graphical  routines  */ 

/************************************#********************************:*y 

static  void  init _graph(void) 

I 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT ; 

/*************************************************************★******/ 

initgraph(&graphdriver,&graphmode,""); 

graph_error  =  graphresult( ); 

if(graph_error  <  0){ 
puts(giaplieironnsg(grapli_erroi )); 
exit( 1 ); 

I 

/****************+****************+*****************************+****/ 
MaxX  =  getmaxx(); 

MaxY  =  getntaxyO; 
x  =  MaxX/80: 
y  =  MaxY/25; 
settext(  K 

if  ((graphmode  =-  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graiAmnd*  ==  MCGAHI)  II  (grap  unode  ==  AT.400IM))  { 
setfillstyle(SOLlD_FlLL.BLACK); 
back<  olor  ~  BLACK; 
quitcolor  =  WHITE. 

i 

i 

else  ( 

setfillstylet  SOLID_  FILL.BLUE ); 
backcoloi  =  BLUE, 
quitcdoi  -  RED; 

i 

forecolor  =  WHITE; 
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static  void  confirm_graph_exit(void) 

{ 

struct  _ottkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 
bar(3*x/2,47*y/2, 1 79*x/2,97  *y/4); 
setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2.24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y*>  II  (ch  ==  ’n’)  II  (ch  ==  ’Y')  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  < ); 

if((ch  ==  V)  II  (ch  ==  ’n’)  I!  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3  I  *x,47*y/2,69*x,97*y/4); 

setcoior(quitcolor); 


switch  (ch)  ( 

case  ’y\  dosegraph(); 
videoinit(); 
exit(O). 
break; 

case  Y’:  closegraph( ); 
videoinit( ); 
exil(O). 


break . 

case  n‘;  setcolor(backcolor); 

bar(4*x/3.47*y/2,?0+x.97*y/4); 

bar(3 1  *x.23*y.69*x.97’f'y/4 ); 
setcoiorl  forecolor); 
break: 
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case  ’N':  setcolor(backcolor); 

bar(4*x/3,47*y/2,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default  :  break; 


hidecurQ; 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*-- . - . . . . . --*/ 

/*  This  function  sets  the  text  default  values 

/*- . - . - . - . - - - */ 

static  void  settext(void) 

( 

settextsty  let 0.0,0); 

setlinestyle(0.4,3); 

settextjustify(HORIZ__DIR,CENTER_TEXT); 


/* - - - - -*/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen 

/* . - . - . - . . */ 

void  l’ause(i.j) 
int  i.  j; 


settexti ); 

outtextxy(i,j."»PRESS  A  KEY  TO  CONTINUE«”); 
if(waitkey(  )=-ESC)  conrmn_graph_exit( ); 


/*A********************************************************************^ 

/*  main  routine  that  calls  exer  routine  */ 

/j**********************************************************************/ 
void  main() 

I 

example_4_2(): 

} 

/* - V 

/*  This  routine  gives  examples  of  trees  and  some  graphs  that  are  not  trees.  */ 

/* - - - - - */ 

void  exampIe_4_2(void ) 

( 

/******************************************************************** j 

init_graph(); 
setcolor(  forecolor); 
bar(0,0.MaxX.MaxY ); 
rectangle(x,y  ,MaxX-x,MaxY  -y/2); 
oultextxy(38*x,y/2, "EXAMPLE  4-2"), 

/*********************************************** *********************/ 

pieslice(25  *x, 5  *y, 0,359,2);  /*  U  */ 

pieslice(35*x,3*y, 0,359,2);  /*  Ul  */ 

pieslice(40*x,3*y,0,359,2); 

pieslice(50*x.  3  *y, 0,359,2); 

pieslice(55*x.3*y,0,359,2);  /*  Uk  */ 

pieslice(  65  *x,  5  *y, 0,359,2); 

pieslice(35*x,7*y, 0,359,2);  /*  VI  */ 

pieslice(50*x,7*y. 0,359,2); 

pieslice(55*x.7*y.0.359,2);  /*  Vm  */ 

pieslice(65*x.5*y,0. 359,2);  /*  V  */ 

moveto(25*x,5  *y);  lineto(35*x,3*y);  lineto(40*x.3*y); 

putpixel(42*x.3*y,2): 

putpixelt  45  *x  .3  *y  ,2 ); 

putpixel(48*x.3*y,2); 

moveto(50*x.3*y):  lineto(55*x,3*y);  lineto(65*x.5*y); 
movetot 25*x,5*y ):  lineto(35*x,7*y);  lineto(40*x,7*y); 
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putpixel(42*x.7*y,2); 

putpixel(45*x.7*y,2); 

putpixel(48*x,7*y,2); 

moveto(50*x,7*y);  lineto(55*x,7*y);  lineco(65*x,5*y); 

outtextxy(23*x,5*y."U"); 

outtextxy(35  *x,3  *y/2,"  U 1 " ); 

outtextxy(55  *x,3  *y/2."  Uk"); 

outtextxy(35  *x,8  *y V 1 "); 

outtexixy(57*x,8*y,"Vm"); 

outtextxy(67*x,5*y,"V"); 

outtextxy(2*x,10*y,"  If  all  Ui  =  Vj  then  U,  Ul, ....  Uk,  V  ,  Vm, VI,  U  is  a  cycle 
which  is  a"); 

outtextxy(2*x,l  l*y,"  contradiction  to  the  definition  of  a  tree.”); 
outtextxy(2*x,12*y,"  Now  think  about  the  other  case,  where  existence  of  an 
vertice  such  that  this"); 

outtextxy(2*x,13*y,"  vertice  is  not  equal  to  U  or  V,  "); 

yr********************************************************************/ 

pieslice(20*x,!7*y,0,359,2);  /*  U  */ 
pieslice(30*x,15*y, 0,359,2);  /*U1  */ 
pieslice(30*x,19*y,0,359,2);  /*  Vi  */ 
piesiice(75*x/2,17*y, 0,359,2);  /*  V  */ 
pieslice(60*x,15*y,0,359,2);  /*  Uk  */ 
pieslice(60*x,19*y,0,359,2);  /*  Vm  */ 
pieslice(70*x,17*y,0,359,2); 
pieslice(  1 05  *x/2, 1 7*y  .0,359,2); 
pieslice(45*x ,  1 9*y  ,0,359,2 ); 
pieslice(45*x,15*y,0,359,2); 
moveto(20*x.l 7*y );  lineto(30*x,15*y); 
moveto(20*x,17*y);  lineto(30*x,19*y); 
sellinestyle(3,0,l ); 

moveto(30*x.!5*y);  lineto(45*x,19*y);  lineto(60*x,15*y); 
moveto(30*x,19*y);  lineto(45*x,15*y);  lineto(60*x,19*y); 
setlinestyle(0.0,3); 

moveto(60*x,19*y);  lineto(70*x,17*y); 
inoveto(60*x.  1 5*y );  lineto(70*x.  1 7*y ); 


outtextxy(l8*x,17*y,"U"); 

outtextxy(27*x,29*y/2,"  U 1 "); 

outtextxy(63*x,29*y/2,"Uk"); 

outtextxy(33*x,17*y,"Ui"); 

outtextxy(41*x,17*y,"Vj"); 

ouitextxy(27*x,19*y,"VT'); 

outtextxy(63*x,19*y,"Vm"); 

outtextxy(72*x,17*y,"V"); 

^/*  ****  +  **  +  ****************************  if******************************/ 

outtextxy(2*x,21*y,"  Let  Ui  =  Vj  as  shown  above.  Then  again  U,  Ul,  Ui,  Vj-1, 

-  VI,  U  is"); 

outtextxy(2*x.22*y,"  a  cycle.  Tliis  contradicts  with  the  definition  of  the  tree."); 
outtextxy(2*x.23*y,"  Therefore  there  exist  exactly  one  path  between  U  &  V.  ”); 

Pause(30*x,24*y); 

closegraphf); 

videoinit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  example43.c 
:  Atilla  BAKAN 
:  Apr.  16, 1990 
:  Apr.  16, 1990 


DESCRIPTION  :  This  program  draws  the  example  graph  for  the  proof  of 
theorem  4.3. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  *1 
#include  <graphics.h> 
#include  "cxldef.h" 


#if  defined ( _ TURBOC _ .)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  f*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  graph  (void); 


/*****************************  ************************************* 

/*  graphic  initialization  variables  */ 

/**********************************************************************/ 
int  curr_mode; 
int  graphdriver; 
int  graphmode; 
int  graph_error, 
int  backcolor, 
int  forecolor; 
int  x,  y,  MaxX,  MaxY; 


/**********************************************************************y> 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/*********+************************************************************/ 
static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 
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/**********************************************************************/ 
/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init__graph(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT; 

/******************** ************************************** **********/ 

initgraph(&graphdriver,& graphmode,""); 
graph_error  =  graphresult(); 

/********************************************************************/ 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_eiror)); 

exit(l); 

) 

/********************************************************************/ 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

^*4:4:*#4;4:******:****************4:***ic**#*****************ilc*3ic**)it****:**i;*f 

settext(); 

/*  ********* **********************************************************/ 
if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 

) 

forecolor  =  WHITE; 
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/**********************************************************************/ 

/*  This  function  sets  the  text  default  values  */ 

^**********************************************************************^ 

static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


/**********************************************************************/ 


/*  Equivalent  of  press_a_key  function  for  graphics  screen 


*/ 


y* ********************************************************************  *y 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,"»PRESS  A  KEY  TO  CONTINUE«"); 
if(waitkey()==ESC)  { 
closegraph(); 
videoinit(); 
exit(O); 


} 


} 


^*  *********************************************************************/ 

/*  main  routine  that  calls  graph  routine  */ 

/**********************************************************************/ 

void  main() 

{ 

graph(); 
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y**********************************************************************/ 
/*  This  routine  gives  examples  of  trees  and  some  graphs  that  are  not  trees.  */ 

/**********************************************************************/ 


void  graph(void) 

{ 


/********************************************************************/ 


init_graphO; 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXAMPLE  4-3"); 

/********************************************************************/ 


pieslice(25*x,6*y, 0,359,2); 

pieslice(30*x,8*y,0,359,2); 

pieslice(30*x,  1 2*y, 0,359,2); 

pieslice(25*x,14*y,0,359,2); 

pieslice(25*x,10*y, 0,359,2); 

pieslice(35*x,10*y, 0,359,2); 

pieslice(30*x,10*y,0,359,2); 

pieslice(60*x,  1 0*y,0,359,2); 

pieslice(35*x,6*y,0,359,2); 

pieslice(55*x,6*y, 0,359,2); 

pieslice(60*x,8*y,0, 359,2); 

pieslice(60*x,  1 2*y, 0,359,2); 

pieslice(55*x,  10*y,0,359,2); 

pieslice(65*x,  10*y,0,359,2); 

pieslice(65*x,6*y, 0,359,2); 

moveto(25*x,6*y);  lineto(30*x,8*y); 

lineu,(30*x,12*y);  lineto(25*x,14*y); 

moveto(25*x,10*y);  lineto(35*x,10*y); 

moveto(30*x,8*y);  lineto(35*x,6*y); 

moveto(55*x,6*y);  lineto(60*x,8*y);  lineto(60*x,12*y); 

moveto(55*x,10*y);  lineto(65*x,10*y); 

moveto(60*x,8*y);  lineto(65*x,6*y); 

outtextxy(30*x,5*y,"T"); 

outtextxy(60*x,5*y,"T’"); 
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/*^**************%***************************  *:*********>!.*************/ 


outtextxy(4*x,  1 6*y,"Now  consider  these  graphs.  The  graph  T’  has  k  vertices  and 
still  is  a  tree."); 

outtextxy(4*x,17*y,"By  the  induction  assumption  T’  has  k  - 1  edges.  But  then 
T  has  k  edges."); 

outtextxy(4*x,19*y,"Therefore,  by  induction  the  theorem  holds  for  all  positive 

integers  n."); 


Pause(30*x,24*y); 

closegraph(); 

videoinitO; 

} 
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/*  PROGRAM  :  examp44.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16,  1990 
REVISED  :  Apr.  16,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  the  proof  of 
the  first  part  of  theorem  4.4. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphies.h> 
#include  "cxldef.h" 


#if  defined(__TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

ftdefine  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#tlefine  ffblk  find_t 

#defme  ff  name  name 

#e! if  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff  name  name 
#define  ff  attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  grapli  (void); 


I* ******%**** ****************  i******************************************/ 

/*  graphic  initialization  variables  */ 

/♦if********************************************************************/ 

int  curr_mode; 

int  graphdriver: 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  x,  y,  MaxX,  MaxY; 


/ft*********************************************************************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/********************************************! tt************************,),/ 

static  void  register_diivers(void) 

( 

if(registeibgidiiver(CGA_driver)  <  0)  exit(l ); 
if(registerbgidriver(EGAVGA_diiver)  <  0)  exit(l ); 
if(registerbgklriver(  ATT_(lriver)  <  0)  exit(  1 ); 
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y *************<*********************************  *********  *  ************^ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */' 

^  t  **********************************************  ***-.**-•'*****  J 

static  void  init_graph(void) 

( 

int  xasp,  yasp; 

register_drivers( ); 
graphdriver  =  DETECT; 

/*********************************************+*****************+*****/ 

iiiitgraph(&graphdriver,&graplurtode,""); 

giapherror  =  graphresult(); 

j-if.  ********************************************************************/ 

if(graph_enor  <  0){ 

puts(  graphen  onnsg(graph_error)); 

ex  it(  1 ); 

) 

MaxX  =  getmaxx( ); 

MaxY  =  getmaxyt ); 
x  =  MaxX/80: 
y  =  MaxY/25; 

/****************************. |j  **********************************  *  *  *  *  *  *^' 

settextt ); 

/*****************************  *********  it*****************************/ 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  AlTdOOHI))  ( 
setfillstyle(SOLID_FILL,  BLACK); 
hackcolor  =  BLACK; 

) 

else  ( 

set  fill  stylet  SOLID  FI  LL.BLUE): 
hackcolor  =  BLUE; 

I 

forecoloi  -  WHITE; 
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/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

/**********************************************************************/ 
static  void  settext(void) 

I 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/a********************************************************************* 

void  Pause(i.j) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j."»PRESS  A  KEY  TO  CONTINUED); 
if(waitkey()==ESC)  { 
closegraphO; 
videoinit(); 
exit(O); 

) 


/*  main  routine  that  calls  graph  routine  */ 

/♦******************************************J(<***********J|<J4<*!l<:t<:(<*:tc**s|<:(<***^ 

void  main( ) 

I 

graphO; 
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/**********************************************************************/ 
/*  This  routine  gives  examples  of  trees  and  some  graphs  that  are  not  trees.  */ 

y********v*************************************************************/ 

void  graph(void) 

I 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  ,MaxX-x,MaxY-y/2); 
outtextxy(38*x.y/2,"EXAMPLE  4-4"); 

/***  +  *****************  +  ****  +  '(<:f*+*  +  +  *  +  **  +  **  +  >(<*  +  +  +  ****  +  *  +  ******>t<>t<4<  +  ****y 

pieslice(20*x.6*y,0,359,2); 
pieslice(25*x,6*y,0,359,2); 
pieslice(35*x,4*y,0,359,2); 
pieslice(55*x.4*y  .0.359,2); 
pieslice(65*x.6*y. 0.359,2); 
pieslice(70*x.6*y, 0,359,2); 
pieslice(35*x,8*y,0,359,2); 
pieslice(55*x.8*y, 0,359,2); 
pieslice(65*x.6*y,0,359,2); 
moveto(20*x.6*y);  lineto(25*x,6*y); 
lincto(35*x,4*y);  lineto(55*x,4*y); 
lineto(65*x,6*y);  lineto(70*x,6*y); 
moveto(25*x,6*y);  Iineto(35*x,8*y); 
lineto(55*x,8*y);  lineto(65*x,6*y); 
moveto(.35*x,4*y);  Iineto(55*x,8*y); 
outtextxy(  1 8*x,6*y,”U"); 
outtextxy(72*x.6*y,"V"); 

outtextxy(2*x,l  5*y,"  Observe  tliat  U  and  V  need  not  be  part  of  the  cycle.  Hence, 

if  T  is  connected"); 

outtextxy(2*x,16*y,”  and  acyclic,  then  there  will  be  exactly  one  path  between  any 

pair  of  vertices."); 

Pause(30*x,24*y); 

closegraph(); 

videoinilO; 

) 
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/*  PROGRAM  :  examp45.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16, 1990 
REVISED  :  Apr.  16,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  the  second 
part  of  the  proof  for  the  theorem  4.5. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cximou.h" 
#include  "cxbcey.h” 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defuied(M_186)  &&  ! defined!  ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(  -i)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  fmd_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#ciefine  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

i*  tutorial  functions  */ 

static  void  graph  (void); 

/*  graphic  initialization  variables  */ 

int  curr_mode; 

int  graplulriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y.  MaxX,  MaxY; 


/******  +  *******  +  *  +  ****  +  *  +  ****************  +  **  +  ****  +  **********  +  %*******  + 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^***++************************************************************+****/ 
static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(  1 ); 
if(registerbgidriv~'  ATT_driver'  <  0)  exit(l); 
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I**** ****** ************************************************************/ 

/*  This  faction  initializes  the  necessary  graphical  routines  */ 

^*********l(<l(<*******=l<*l(<*******!t'*********>(<*l(<***>l<********"t*****>t>***********^ 

static  void  init_graph(void) 

{ 

int  xasp,  yasp: 


register_drivers(); 
graphdriver  =  DETECT ; 

^*  **************************•********■*!****!<<  +  ******************  +  ****  +  +  = MJ 

initgraph(&graphili  iver  ,&graphmode 
graph_enor  =  grapliresult(); 

/***)le*jiicj'jt**j'***************Y***<***i‘*********1'***********************f 

if(graph_error  <  0) { 
puts(grapherronnsg(graph_error)); 
exit(l ); 


MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/80: 
y  =  MaxY/25; 
settext( ); 

if  ((grapiunode  ==  CGAH1)  II  (graphmode  ==  MCGAMED)  II  (graplunode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLlD_FlLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

> 

forecolor  -  WHITE; 
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static  void  confirm_graph_exit(void) 

I 

stiuct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,47*y/2,179*x/2,97*y/4); 

setcolor(qi:itcolor); 

kblist=chgonkey(NULL);  /*  liide  any  existing  hot  keys  */ 
if(_roouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (): 

while  (!((ch  ==  y * )  II  (ch==  ’n’)ll  (ch  ==  ’Y’)li  (ch  ==  ’N’»)  | 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
cli  =  getch  (); 

if((ch  ==  *y’>  II  ,ch  ==  ’n’)  II  (ch  ==  ’Y’>  II  (ch  ==  ’N’)) 
setcolor(backcolor); 

bar(3 1  *x.47*y/2,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  ( 

case  'y‘:  closegraph(); 
videouiit(); 
exit(O); 
break: 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O): 
break: 

case  n’:  setcolor(backcolor); 

bar(4*x/3,47*y/2,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

case  ’N':  setcolor(backcolor); 
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bar(4*x/3,47*y/2,30*x,97*y/4); 
bar(3 1  *x,23¥y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  m$showcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/* - - */ 

/*  This  function  sets  the  text  default  values 

/* - - - - - */ 

static  void  settext(void) 

I 

settextstyle(O.O.O); 

se(linestvle(0.4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

) 

/* . 7 

/*  Equivalent  of  press„a_key  function  for  graphics  screen 

/*-- . - . - . - . - - - */ 

void  Pause(i,j) 
int  i,  j; 


V 


*/ 


settext( ): 

outtextxy(i,j,">»PRESS  A  KEY  TO  CONTINUE... «<"); 
if(waitkey( )~ESC)  confum_graph_exit(); 

} 

/* _ */ 

/*  main  routine  that  calls  exer  routine  */ 

/* - - - */ 

void  main( ) 

I 

graph( ); 

I 
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/*  This  routine  gives  examples  of  trees  and  some  graphs  that  are  not  trees.  */ 

void  graph(void) 

{ 

init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  ,MaxX~x,MaxY  -y/2); 
ouitextxy(38*x,y/2,"EXAMPLE  4-5"); 

pieslice(20*x.4*y,0,359,2); 

pieslice(25*x.4*y  ,0,359,2); 

pieslice(35*x.6*y, 0,359,2); 

pieslice(45*x.6*y,0.359,2); 

pieslice(50*x.4*y, 0,359,2); 

pieslice(55*x.3*y,0,359,2); 

pieslice(58*x.6*y,0,359,2); 

pieslice(52*x.8*y,0,359,2); 

pieslice(20*x.8*y, 0,359,2); 

pieslice(25*x,8*y,0.359,2); 

movetoUO^x^y);  lineto(25*x.4*y); 

lineto(35*x,6*y);  lineto(45*x,6*y); 

lineto(50*x,4*y);  Jineto(55*x,3*y); 

moveto(20*x,8*y);  lineto(25*x,8*y);  lineto(35*x,6*y); 

moveto(45*x,6*y);  lineto(52*x,8*y); 

nioveto(50*x,4*y);  lineto(58*x,6*y); 

outtextxy(33*x,6*y,"U"); 

outtextxy(47*x,6*y,"V"); 

I********************************************),**),  *),)'),)'**),),***********/ 

outtextxy(2*x,IO*y,"Let  e  =  {  U,  V  )  be  an  edge  in  T .”); 

/*******************************  +  **1,1'*****1,4,1,>l'1,1'1,1,1,1'1,*Xll,i,  ************/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x.23*y.70*x.49*y/2); 
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setcolor(  forecolor); 
outtextxy(40*x,5  *y  ,"e" ); 

outtextxy(2*x,10*y,"Let  e  =  {  U,  V  }  be  an  edge  in  T.  Since  there  is  only  one  path 
from  U  tu  V,"); 

ouftexfxy(2*x,l  1  *y, "removing  e  from  the  graph  T  disconnects  T  (as  you  see)"); 

/********************************************************************y 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

moveto(35*x,6*y);  lineto(45*x,6*y);  /*  delete  e  */ 

setcolor(forecolor); 

setlinestyle(3,0,l); 

moveto(35*x,6*y);  lineto(45*x,6*y); 

yr********************************************************************y 

outtextxy(2*x,l  1  *y, "removing  e  from  the  graph  T  disconnects  T  (as  you  see), 
creating  a  graph  T’"); 

outtextxy(2*x,12*y,"with  two  components  and  one  less  edge.  Let  T1  and  T2  these 
componets.”); 

^*  *******************************************************************/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x.23*y.70*x.49*y/2); 

setcolor(forecolor); 

!>*,. 

UUilvAwi j  a,>  j  %  i  i 

outtextxy(50*x.9*y  ,"T2" ); 

outtextxy(2*x,13*y, "Suppose  T1  has  nl  vertices  and  ml  edges,  and  suppose  T2 
has  n2  vertices  and"); 

outtextxy(2*x.i4*y,"m2  edges  The  number  of  vertices  in  T’  is  n  =  nl  +  n2,  and  the 
number  of  edges"); 

outtextxy(2*x,15*y,"in  T’  is  ml  +  m2.  BothTl  and  T2  are  subgraphs  ofT,  so  any 
pair  of  vertices  in"); 

outtextxy(2*x,16*y,"each  connected  by  exactly  one  path.  Applying  the  inductive 
hypothesis  P(n),  we"); 

outtextxy(2*x,17*y, "conclude  that  ml  =  nl  -  1  and  m2  =  n2  -  1.  Now  T"  has  one 
less  edge  than  T."); 
outtextxy(2*x.l8*y,"Then  "); 
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outtextxy(14*x,20*y,"m  =  ( the  number  of  edges  in  T’)  +  1"); 
outtextxy(14*x,21*y,"  =  ml  +  m2  +1  =  nl  -  1  +  (n2  -  1)  +  1”); 
outtextxy(14*x,22*y,"  =nl+n2-l  =  n  -  1"); 
outtextxy(2*x.23*y, "which  completes  the  proof."); 

/ft*******************************************************************/ 

Pause(30*x,24*y); 

closegraph(); 

videoinit(); 
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/♦PROGRAM  :q4!l.c 

AUT'I*  ‘  v  :  Atilla  BAKAN 

DAiE  :Mar.  20.  1990 

REVISED  :  Apr.  16,  1990 

DESCRIPTION  :  This  program  contains  the  first  exercise  about  properties 
of  trees. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 

*/ 

/*  header  files  */ 

#inc!uile  <graphics  h> 

#include  "cxldef.h" 

#include  "cxlmou.h" 

#include  "cxlkey.h" 

#if  defined! _ TIJRBOC _ ) 

#inc!ude  <clii  h> 

#else 

#include  <direct.h> 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_>  /*  MSC/QuickC  */ 

#define  bioskey(a)  bios_keybrd(a) 

#define  findfirst(a.b.c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  dos_fuidnext(a) 

#define  ffblk  find_t 

#define  ff  name  name 

#el  if  defined!  ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffbLk  FIND 

#define  ff  name  name 

#define  ff  attiib  attribute 

#endif 


,'J  Turbo  C  */ 


/*  all  others  */ 
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#defuie  _GRAPH_T  DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confiim_graph_exit  (void); 
static  void  Pause  (bit  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  *1 
static  void  exer  (void); 

^* ******************* ************************************************** 
/*  graphic  initialization  variables  */ 

j *  ********************************************************************* 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  grapherror. 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX.  MaxY; 


/************  **********%*********************%********v************%*** 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

j"¥  *  *  **  *****  **  ********************************************************** 

static  void  register  drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l ); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(  1 ); 
if(registerbgidriver(ATr_driver)  <  0)  exit(l ); 
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/I**********************************************************************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

jif.  *****************************  ************************************  ****^ 

static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_drivers(); 

graphclriver  =  DETECT; 

^* **♦***>’  <***********************************************************/ 

initgraph(&graphdriver,&graplimode,""); 

graph_enor  =  graphresult(); 

/********************************************************************/ 
if(graph_error  <  0){ 
puts(grapherronnsg(graph_error)); 
exit(l ); 


/*  ******************************************************************  ^  j 

MaxX  =  getniaxxQ; 

MaxY  =  getmaxyO; 
x  =  MuxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graplunode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FlLL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

set  fillstylet  SOLID_FILL.B  LUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 


578 


/**********************************************************************/ 
static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (): 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n">; 
ch  =  getch  (); 

if((ch  ==  •>•’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

set  color(qu  it  color); 

) 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break: 

case  ’Y':  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x.23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 
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case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar  (.3 1  *x,23*y  ,69*x,97*y/4); 
setcoior(  forecolor); 
break; 

default :  break; 

I 

hidecur(); 

if(_inouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 

/*  This  function  sets  the  text  default  values  */ 

/************************************ A*********************************/ 

static  void  settext(void) 

I 

settextstyle(O.O.O); 

setlinestyle(0.4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

I**********************************************************#****#******/ 

void  Fause(i.j) 
int  i,  j; 

( 

settext(); 

outtextxy(i,j,"»PRESS  A  KEY  TO  CONTINUE«"); 
if(waitkey()=ESC)  { 
closegraph(): 
videoinit(); 
exit(O); 
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^*  ******************************************************************** *^ 
f*  main  routine  that  calls  exer  routine  */ 

/**+*+*******************************★******+******+************+***+** 
void  main() 

I 

exer(); 

} 


/************************* ************* **************** ****************^ 
/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

^*  *********************************************************************/ 
static  void  exert  void) 


chat  Ch; 


init  _graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY ); 
rectangle(x,y.MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2, "EXERCISE  I"); 

/********************************************************************/ 

pieslice(10*x.7*y, 0,359,2); 

pieslice(25*x,5*y,0,359,2); 

pieslice(35*x,5*y, 0,359,2); 

pieslice(25*x.9*y, 0,359,2); 

pieslice(35*x.9*y,0,359,2); 

pieslice(45*x,7*y, 0.359.2); 

pieslice(55*x.7*y, 0,359,2); 

pieslice(68*x.5*y, 0,359,2); 

pieslice(75*x,7*y, 0,359,2); 

pieslice(68*x.9*y, 0,359.2); 

pieslice(80*x.7*y, 0,359,2); 

moveto(25*x.5*y);  lineto(35*x,5*y); 

lineto(35*x.9*y );  lineto(25*x,9*y);  lineto(25*x,5*y); 
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moveto(68*x,5*y);  lineto(75*x,7*y);  lineto(68*x,9*y); 
outtextxy  (9*x .  1 2*y  ,"(a)" ); 


outtextxy(29*x,12*y,"(b)”); 
outtextxy  (49*x,  1 2*y  ,"(c)" ); 


outtextxy(74*x,12*y,"(d)”); 


outtextxy(l8*x,2*y, "Which  one  of  the  following  graphs  is  a  tree  ?"); 
outtextxy(18*x,lc  "  '/'Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch=ESC)  confinn_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  =  'b')  II  (Ch  =  V)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,18*y,"  Please  type  a,b,c,  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confinn_graph_exit(); 

if((Ch  ==  'a')  II  (Ch  —  'b')  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)) 

setcolor(backcolor); 

bar(50*x.l7*y.88*x,19*y); 

setcoloi  (forecolor); 


) 

switch  (Ch)  { 
case  ’a’:  outtextxy(50*x,18*y,"a"); 

outtextxy(55*x,18*y,"Correct.  Congratulations."); 
break; 

case  ’b’;  outtextxy(50*x,18*y,"b"); 

outtextxy(55*x,18*y, "Sorry!  It  caiuiot  be  a  tree,"); 
outtextxy(55*x,l9*y,"because  it  has  a  cycle."); 
outtextxy(55*x,20*y,"The  correct  answer  was  ’a’."); 
break; 


case  ’c’:  outtextxy(50*x,18*y,"c"); 

outtextxy(55*x,18*y, "Sorry!  It  cannot  be  a  tree,"); 
outtextxy(55*x,19*y, "because  it  is  not  connected."); 
outtextxy(55*x,20*y,"The  correct  answer  was  ’a’.”); 
break; 


case ’d’:  outtextxy(50*x,18*y,"d"); 
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outtextxy(55*x,18*y,"Sorry!  It  cannot  be  a  tree,"); 
outtextxy(55*x,19*y, "because  it  is  not  connected."); 
outtextxy(55*x,20*y,"The  correct  answer  was  ’a’."); 
break; 


default  :  break; 

) 

Pause(3 1  *x,24*y); 
closegraph(); 
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I*  PROGRAM  :  q412.c 
AUTHOR  :  AtiUa  BAKAN 
DATE  :  Mar.  20,  1990 
REVISED  :  Mar,  20, 1990 

DESCRIPTION  :  This  program  contains  the  second  exercise  about  properties 
of  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC__)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 


j  ***  I|C  *****  ********  **********  *****  I***************  *  *  *********  ***********  ifj 

/*  graphic  initialization  variables  */ 

/**********************************************************************/ 
int  curr_mode; 
int  graplulriver; 
int  graphmode; 
int  graph  error; 
int  backcolor; 
int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX,  MaxY; 


^**********************************************************************^ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^**********************************************************************^ 
static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l ); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 
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yi)<****i(t**5(<**+**i(<*********!i<<t*!(<***i(<**  +  *  +  **  +  *****:******  +  %***  +  *******  +  +  *  +  +  *^ 

/*  This  fiiction  initializes  the  necessary  graphical  routines  */ 

y**********************************************************************^ 
static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_dri  vers(); 
graphdriver  =  DETECT ; 

/*********************************************************************/ 


initgraph(&graphdr  iver  ,&  graphmode , " ' " ) ; 
grapli_error  =  grapliresult(); 

Z********************************************************************* 


if(graph_error  <  0){ 
puts(grapherrormsg(graph_error)); 
exit(l ); 


MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graplunode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graplunode  —  ATT400HI))  ( 
setfiilstyle(SOLlD_FILL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

I 

else  ( 

setfillstylei  SOLID  JFILL, BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 
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/**:  '^♦**’t>**=(<********K.***********X.*i(,*********;<,***  **************  ****J«*^ 

static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(  3  *x/2 ,  23  *y ,  1 79 *x/2 ,97 *y/4 ); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!(<rh  ==  ’y’)  ||  (ch  ==  ’n’)  I!  (ch  ==  ’Y’)ll  (ch  ==  ’N’)))  { 
outtextxy(32*x.24*y,"  Please  type  y  or  n">; 
ch  =  getch  ( ); 

if((cli  ==  y )  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor ); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  ( 

case  'y':  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’;  setcolor(backcolor); 

bai(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 


I 
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case  ’N’:  setcolor(backcolor); 

bar(4*x/3.23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcurO; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


^*  *****************************! (I***************************************/ 

/*  This  function  sets  the  text  default  values  */ 

I#********.*************************************************************/ 

static  void  settext(void) 

( 

settextstyle(0,0,0); 

setlinestyle(0.4.3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


^* *+**************++*++++****+++*****+*++*+**++*+**** **^***************y 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

void  Pause(i,j) 
int  i,  j; 

I 

settext( ); 

outtextxy(iJ,'>»PRESS  A  KEY  TO  CONTINUE  . .«<”); 
if(waitkey()==ESC)  confirm_graph_exit(); 

I 


388 


/***********************:**************************  +  *****************  +  **/ 

/*  main  routine  that  calls  exer  routine  */ 

y^**********************************************,,**********************/ 

void  main() 

I 

exer(); 

} 

/******1>***************’t'’t<**********  +  *’t<  +  *************  +  **’t'****’t«****’l<’t>*st>*’ty 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/******* k***************************************************************/ 

static  void  exer(void) 

I 

int  backcolor  =  7; 
char  Ch; 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  ,MaxX-x.Max  Y -y/2 ); 
outtextxy(38*x,y/2, "EXERCISE  2"): 

^rf******************************************************************  j 

pieslice(30*x,5*y,0,359,2); 
pieslice(40*x.5*y,0,359,2); 
pieslice(50*x.5*y, 0,359,2): 
pieslice(60*x. 5  *y. 0,359,2); 
pieslice(30*x,9*y, 0,359,2); 
pieslice(40*x.c>*y, 0,359,2); 
pieslice(50*x.9*y, 0,359,2); 
pieslice(60*x.9*y, 0,359,2); 

movelo(3l|*x.5*y);  lineto(40*x,9*y);  lineto(50*x.5*y);  lineto(60*x.9*y ); 
moveto(30*x,9*y);  lmeto(40*x,5*y);  lineto(50*x,9*y);  lineto(60*x,5*y); 

outtextxy(32*x.2*y,"Is  tliis  graph  a  tree  ?"); 
outtextxyi  18*x,18*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  ( ); 


if(Ch=ESC)  confirm_graph_exit( ); 

while  (!((Ch  ==  Y )  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)))  ( 
outtextxy(48*x,18*y,"  Please  type  y  or  n"); 

Ch  =  getch  (); 

if  (Ch==ES  C )  conf  irm_graph_e xit(); 

if((Ch  ==  y  >  II  (Ch  ==  V)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)) 

setcolor(backcolor); 

bar(50*x.l7*y,88*x,19*y); 

setcolor(  forecolor ); 

I 

switch  (Ch)  ( 

case  'y':  outtextxy(50*x,18*y,"y"); 

outtextxy(55*x.l8*y."No.  If  you  examine  the  graph"); 
outtextxy(55*x,19*y /’carefully,  you’ll  see  that  it"); 
outtextxvC>5*x.20*y,"is  not  connected."); 
break; 

case  'Y\  outtextxy(50*x,18*y,"Y"); 

outtextxv(55*x,18*y."No.  If  you  examine  the  graph"); 
outtextxy(55*x.l9*y,' "carefully,  you’ll  see  that  it"); 
outtextxy(55*x,20*y,"is  not  connected."): 
break: 

case  ’n‘:  outtextxy(50*x,18*y,"n" ); 

outtextxy(55*x.l8*y."You  are  right!  Conratulations."); 
bre;ik; 

case  ’N’;  outtextxy(50*x.l8*y,"N"); 

outtextxv(55*x.l  8*y."You  are  right!  Conratulations  ."); 
break; 

default  .  break; 

) 

Pausc(.W*x.24’,’y): 

closegraphf ). 
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/*  PROGRAM  :  q413.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Mar.  20,  1990 
REVISED  :  Mar.  20, 1990 

DESCRIPTION  :  This  program  contains  the  third  exercise  about  properties 
of  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlmou.h" 

#include  "cxlkey.h" 

#if  defined ( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defmed(M _I86)  &&  !definedC_ZTC_)  /*  MSC/QuickC  */ 
#defiiie  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defmed(_ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/*************  ***************  ********  ****  4c  ill**  ***  *  *  *********************y 

/*  graphic  initialization  variables  */ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


y***** ************ ************************* ****************************y 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/**********************************************************************/ 


static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 
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***************************************************************  I 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

^**************************************** ****************************** I 


static  void  init_graph(void) 

{ 


int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

/********************************************************************/ 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

^************ ******************************************************** ^ 


if(graph_eiTor  <  0){ 

puts(grapherrormsg(graph_error')); 

exit(l); 

} 

^*************** ***************************************************** J 


MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  M CGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FTLL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiUstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

) 
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/******4^*******4^*****************************************************/ 

static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(quitcolor) ; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’) «  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’»)  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor) ; 

} 

switch  (ch)  { 

case  V-  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
setcolor(forecolor) ; 
break; 
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case  ’N’:  setcolorfbackcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


^* ****************************************************** ***************/ 
/*  This  function  sets  the  text  default  values  */ 

/**********************************************************************/ 
static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


/**********************************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,">»PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

} 
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/***********************************************¥¥*********************/ 
/*  main  routine  that  calls  exer  routine  */ 

/**********************************************************************/ 
void  main() 


exerQ; 


I*  *  *  *  *  *  *  *  i)i  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ***  *  *  *  *  *  *  *  *  *i 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

y* ******************************************** *************************/ 

static  void  exer(void) 

{ 

char  Ch; 


init_graph(); 
setcolor(forecolor) ; 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2,"EXERCISE  3"); 

/**********************  ***********************  ***********************^/ 

pieslice(35*x,5*y,0,359,2); 

pieslice(55*x,5*y, 0,359,2); 

pieslice(35*x,9*y,0,359,2); 

pieslice(55*x,9*y, 0,359,2); 

moveto(35*x,5*y);  lineto(55*x,5*y);  lineto(55*x,9*y);  lineto(35*x,5*y); 
moveto(35*x,9*y);  lineto(55*x,5*y);  lineto(55*x,9*y);  lineto(35*x,9*y); 

I******* ************************************************************* j 

outtextxy(32*x,2*y,"Is  this  graph  a  tree  ?"); 
outtextxy(18*x,18*y,"Enter  your  choice  here  —  >"); 

Ch  =  getch  0; 

if(Ch=ESC)  confirm  _graph_exit(); 

while  (!((Ch  ==  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  ==  ’N’)))  { 
outtextxy(48*x,  1 8*y,"  Please  type  y  or  n"); 
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Ch  =  getch  0; 

if(Ch=ESC)  confirm_graph_ex  t(); 

if((Ch  =  V)  II  (Ch  ==  V)  II  (Ch  =  ’Y’)  II  (Ch  ==  ’N’)) 

setcolor(backcolor); 

bar(50*x,17*y,88*x,19*y); 

setcolor(forecolor); 

} 

switch  (Ch)  { 

case  y :  outtextxy(50*x,18*y,"y"); 

outtextxy(55*x,18*y,"No.  If  you  examine  the  graph"); 
outtextxy(55*x,19*y,"carefully,  you’ll  see  that  it"); 
outtextxy(55*x,20*y,"has  a  cycle."); 

break; 

case  ’Y’:  outtextxy(50*x,18*y,"Y"); 

outtextxy(55*x,18*y,"No.  If  you  examine  the  graph"); 
outtextxy(55*x,19*y,"carefully,  you’ll  see  that  it"); 
outtextxy(55*x,20*y,"has  a  cycle."); 
break; 

case  V:  outtextxy(50*x,18*y,"n"); 

outtextxy(55*x,18*y,"You  are  right!  Conratulations."); 
break; 

case  ’N’:  outtextxy(50*x,18*y,"N"); 

outtextxy(55*x,18*y,"You  are  right!  Conratulations."); 
break; 

default  :  break; 

} 

Pause(30*x,24*y); 

closegraph(); 
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/*  PROGRAM  :  q414.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Mar.  20,  1990 
REVISED  :  Mar.  20,  1990 


DESCRIPTION  :  This  program  contains  the  fourth  exercise  about  properties 
of  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlmou.h" 

#include  "cxlkey.h" 

/*  Turbo  C  */ 

/*  all  others  */ 


#if  defined(___TURBOC _ ) 

#include  <dir.h> 

#else 

#include  <direct.h> 
#endif 


#if  defined(M _I86)  &&  !defined(__ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  *1 

f*  Utility  functions  */ 
static  void  init _graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 


/♦♦a**********************************#********************************/ 

/*  graphic  initialization  variables  */ 

^**********************************************************************/ 
int  curr_mode; 
int  graphdriver; 
int  graphmode; 
int  graph_error; 
int  backcolor; 
int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX,  MaxY; 


^********************************************************> t<*************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^* ********************+*+**********************************************/ 
static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l ); 
if(registerbgidriver( ATT_diiver)  <  0)  exit(  I ); 
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I*  ********************  *************************************************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/a*********************************************************************/ 


static  void  init__graph(void) 

I 

int  xasp,  yasp; 


register_drivers( ); 
graphdriver  =  DETECT; 

^♦’tc******************************************************************^ 


initgraph(  &graphdriver  ,&graplimode ,""); 
graph  error  =  grapliresult(); 


if(graph_error  <  0)  { 

puts(grapherromisg(graph_error)); 

exit(l); 

} 

/+  +  ****  +  ********  +  ***  +  ****************  +  **+:************jf****jf<***if*>f***+y 

MaxX  =  getinaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 


y  =  MaxY/25: 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  | 

setfillstyle(SOLID_FlLL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 
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^* ********  •fc************************************************************^ 

static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (): 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  >’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  ( 
case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph( ); 
videoinit(); 
exit(O); 
break; 

case  ’n’;  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 
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case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 


hidecur(); 

if(_mouse&MS_CURS)  msshowcurO; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 

/♦♦♦♦♦itt******************************************!*******:***************/ 

/*  This  function  sets  the  text  default  values  */ 

^!|<**!t<******>|<!|<*>|<****!|<****!fr**l|<**>l<******  +  ******  +  +  **lt<*****»t<*>|!**  +  >l'>l<***1(<*l(<**j|y 


static  void  settext(void) 


I 

settextsty  le(0 .0 .0 ) ; 
setlinestyle(0.4,3); 

settextjustify(HORIZJDIR,CENTER_TEXT); 

} 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

^afr*******  ******************************  *****************  ***************y 

void  Pause(iJ) 
int  i,  j; 

I 

settext( ); 

outtextxy(i,j/»>PRESS  A  KEY  TO  CONTINUE ...<«"); 
if(waitkey()==ESC)  confirm _graph_exit(); 

) 
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/*  main  routine  that  calls  exer  routine  */ 

y**********************************************************************/ 

void  main() 

( 

exer(); 

I 


^j**********************************************************************^ 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/A*********************************************************************/ 

static  void  exer(void) 

( 

cliar  Ch; 


init_graph(); 

setcolor(forecolor); 

bat  (0,0.MaxX.MaxY ); 

rectangle(x,y.MaxX-x,MaxY-y/2); 

outtextxy(38*x.y/2,"EXERCISE  4"); 

pieslice(15*x.7*y, 0,359,2); 

pieslice(20*x,7*y,0,359,2); 

pieslice(25*x.7*y, 0,359,2); 

pieslice(45*x.7*y,0,359,2); 

pieslice(50*x.5*y.0,359,2); 

pieslice(50*x.7*y. 0.359,2); 

pieslice(70*x.7*y, 0,359.2); 

pieslice(75*x,7*y  ,0,359,2); 

pieslice(80*x.7*y,0,359,2); 

moveto(15*x,7*y);  lineto(25*x,7*y ); 

moveto(45*x.7*y);  lineto(50*x,7*y);  lineto(50*x,5*y); 

moveto(70*x.7*y);  lineto(80*x,7*y); 

outtextxy(29*x/2,13*y/2,"A"); 


603 


outtextxy(39*x/2,13*y/2,”B"); 

outtextxy(49*x/2,13*y/2."C"); 

outtextxy(43*x,7*y,"C"); 

outtextxy(51*x,7*y,"B"); 

outtextxy(49*x,9*y/2,"A"); 

outtextxy  ( 1 39*x/2, 1 3*y/2"C' ); 

outtextxy(  1 49*x/2, 1 3  *y/2,"  A"); 

outtextxy(  1 59*x/2, 1 3*y/2,"B"); 

outtextxy(  1 9*x,9*y  ,"(I)" ); 

outtextxy(46*x,9*y,"(II)"); 

outtextxy(72*x,9*y,"(llI)"); 

j-M* <*************+***************+**+*+********************+***+*+****/ 

outtextxy(l8*x,l  l*y, "Which  one  of  the  following  statements  is  true  ?"); 
outtextxy(20*x,13*y,"a)  (I)  and  (ill)  are  the  same."); 
outtextxy(20*x,14*y,"b)  (I)  and  (II)  are  the  same."); 
outtextxy( 20*x.l5*y,"c)  All  three  are  the  same."); 
outtextxy(20*x,l6*y,"d)  All  three  are  distinct."); 
outtextxy(  1 8*x,  1 8*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_g:raph_exit(); 

while  (K!Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,  1 8*y Please  type  a,b,c,  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’)) 

setcolor(backco!oi ); 

bar(50*x,l  7*y,88*x,19*y); 

setcolor(  forecolor); 

I 

switch  (Ch)  | 
case  ’a’:  outtextxy(50*x,18*y,"a"); 

outtextxy(55*x,18*y,"Sorry,  that's  not  uue!"); 
outtextxy(55*x,19*y. "because,  they  do  not  have"); 
outtextxv(55*x,20*y,"the  same  set  of  edges.  For"), 
outtextxy(55*x, 21  *y, "example  (A,C)  is  an  edge  of’); 
outtextxv(55*x,22*y,"(III)  but  not  of  the  tree  (I)"); 
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outtextxy(55*x,23*y,"The  answer  is  ’b’."); 
break; 

case  ’b’:  outtextxy(50*x,18*y,"b"); 

outtextxy(55*x,18*y, "Correct.  You  are  doing  fine!"); 
break; 

case  ’c’:  outtextxy(50*x,18*y,"c"); 

outtextxy(55*x,18*y,"No.  Because  (1)  and  (HI)"); 
outtextxy(55*x,19*y,"do  not  have  the  same  set  of'); 
outtextxv(55*x,20*y, "edges.  For  example  {A,C|  is"); 
outtextxy(55*x,21*y,”an  edge  of  (III)  but  not  of  (I)"); 
outtextxy(55*x,22*y,"The  answer  is  ’b'."): 
break; 

case  'd‘:  outtextxy(50*x,18*y,"d"); 

outtextxy(55*x,18*y,"No.  Because,  although  their"); 
outtextxv(55*x,19*y, "topology  are  different,  (I)"); 
outtextxv(55*x.20*y."and  (II)  both  have  the  same  '); 
outtextxy(55*x.21*y."sei  of  edges,  namely.  (A.  B } " ); 
outtextxv(55*x,22*y,"and  (B,  C)  ."); 
outtextxv(55*x.23*y,"  So,  the  answer  is  ’b'"); 
break; 

default  :  break; 

I 

Pause(30*x.24*y); 

closegraphO: 
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/♦PROGRAM  :  root.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Feb.  4, 1990 

REVISED  :  Apr.  17,  1990 

DESCRIPTION  :  This  program  contains  the  tutorial  for  rooted  trees. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 

*/ 

/*  header  files  */ 

#include  <process.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

#if  defined (__TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _G  RAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  add_shadow  (void); 

static  void  confirm_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  error_exit  (int  ermum); 

static  void  initialize  (void); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  normal_exit  (void); 

static  void  Pageup  (void); 

static  void  Pagedown  (void); 

static  void  press_a_key  (int  wrow); 

static  void  pre_help  (void); 

static  void  quit_window  (void); 

static  void  restore_cursor(void); 

static  void  short_delay  (void); 

static  void  size_window  (int  nerow,int  need); 

/*  Tutorial  procedures  */ 

static  void  rooted_trees  (void); 
static  void  definition_4_2_l(void); 
static  void  definition_4_2_2(void); 
static  void  example_4_2_l  (void); 
static  void  example_4_2_2  (void); 
static  void  example_4_2_3  (void); 
static  void  PI  (void); 

static  void  P2  (void); 

static  void  P3  (void); 

static  void  P4  (void); 

static  void  P5  (void); 

static  void  P6  (void); 

static  void  P7  (void); 

static  void  P8  (void); 
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static  void  P9  (void); 
static  void  P10  (void); 

static  void  P 1 1  (void); 

static  void  theorem_4_6  (void); 
static  void  proof_4_6  (void); 
static  void  exercises  (void); 
static  void  exerl  (void); 

static  void  exer2  (void); 

static  void  exer3  (void); 

static  void  exer4  (void); 


y** c***************** *********************************************** ****y 

/*  miscellaneous  global  variables  */ 

y* ******* **************************************************************y 


static  int  *savescm,crow,ccol; 
static  WINDOW  w[  10]; 
static  char  ssan[10]; 


y*************************** **************************** ***************y 

/*  graphic  initialization  variables  */ 

y*** ****** ***************** *******************************************  *y 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  x,  y,  MaxX,  MaxY; 
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/**********************************************************************/ 
/*  error  message  table  */ 

/**********************************************************************/ 


static  char  *error_textQ=  { 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  ==  1,  windowing  error  */ 
"Syntax:  CXLDEMO  [-switches]\n\n" 

"\t  -c  =  CGA  snow  elimination\n" 

"St  -b  =  BIOS  screen  writingSn" 

"St  -m  =  force  monochrome  text  attributes", 
"Memory  allocation  error" 


}; 


^* *********************************************************************/ 


/*  miscellaneous  defines  */ 

^************************** ********************************************/ 


#define  SHORT_DELAY  18 


#define  H_WINTITLE  33 


/********************************  ********  ******************************/ 
/*  this  function  will  add  a  shadow  to  the  active  window  */ 

I* *********************************************************************/ 

static  void  add_shadow(void) 

{ 

wshadow(LGREYLBLACK); 

} 


609 


/**********************************************************************/ 


/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 


^**********************************************************************^ 


static  void  confirm_quit(void) 

( 


struct  _onkey_t  *kblist; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9,26, 1 3,55,0,WHITELBROWN,WHrrELBROWN))  error_exit(  1 ); 
add_shadow(); 

wputs("\n  Quit  demo,  are  you  sure?\033A\156Y\b"); 

clearkeysO; 

showcur(); 

if(wgetchf("YN",,Y’)==’Y’)  normal_exit(); 

wcloseO; 

hidecur(); 

ifCmouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


1**********************************************************************^ 


/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt 


*/ 


y* ****************** *************************************************** ^ 


static  void  disp_sure_msg(void) 

{ 


wprints(0,2,WHrrEI_BLUE,"Are  you  sure?"); 

) 
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/**********************************************************************/ 
/*  this  function  handles  abnormal  termination.  If  it  is  passed  an  */ 

/*  error  code  of  1,  then  it  is  a  windowing  system  error.  Otherwise  */ 

/*  the  error  message  is  looked  up  in  the  error  message  table.  */ 

/**********************************************************************/ 
static  void  error_exit(int  ermum) 

{ 

if(ermum)  { 

printf(,’\n%s\n",(ermum=l)?werrmsg():error_text[ermum]); 

exit(ermum); 

} 

} 

/**********************************************************************y 

/*  this  function  initializes  CXL’s  video,  mouse,  keyboard,  and  help  systems  */ 

^**********************************************************************^ 
static  void  initialize(void) 

{ 


/*  initialize  the  CXL  video  system  and  save  current  screen  info  */ 
videoinitO; 

readcur(&crow,&ccol); 
if((savescm=ssave())==NULL)  error_exit(3); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  { 
mssupport(MS_FULL) ; 
msgotoxy(  12,49); 

} 


/*  attach  [Alt-X]  to  the  confirm_quit()  function  */ 
setonkey(0x2d00,confirm_quit,0); 

/*  attach  [Ctrl  Pageup]  to  the  PageupQ  function  */ 
setonkey(0x8400,  Pageup,  0); 

/*  attach  [Ctrl  Pagedown]  to  the  Pagedown()  function  */ 
setonkey(0x7 600, Pagedown  ,0); 

/*  initialize  help  system,  help  key  =  [FI]  */ 
whelp  def("CXLDEMO.HLP",Ox3bOO,YELLOWLREDO.REDLRED, 
WHITEI_RED,REDI_LGREY  ,pre_help); 


} 
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/**********************************************************************/ 
/*  this  function  is  called  anytime  to  switch  back  to  previous  window.  */ 

/**********************************************************************/ 
static  void  Pageup(void) 

{ 

static  WINDOW  handle; 


handle  =  whandle(); 
wactiv(handle  - 1); 

} 


/**********************************************************************/ 
/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

/**********************************************************************/ 
static  void  Pagedown(void) 

{ 

static  WINDOW  handle; 


handle  =  whandle(); 
wactiv(handle  +  1); 

} 


/**********************************************************************/ 


static  void  pre_help(void) 

{ 


) 


add_shadow(); 

setonkey  (0x2d00,confirm_q  uit.O) ; 
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I**********************************************************************/ 

/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/**********************************************************************/ 
static  void  normal_exit(void) 

{ 


srestore(savescm); 

gotoxy_(crow,ccol); 

if(__mouse)  mshidecur(); 

showcur(); 

exit(0); 


/**********************************************************************/ 


/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

I**********************************************************************/ 


static  void  press_a_key(int  wrow) 

{ 

register  int  attrl; 
register  int  attr2; 


attrl=(YELLOW)l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo.active->wattr»4)«4); 
wcenters(wrow,attrl, "Press  a  key"); 
wprints(wrow,0,LGREYI_RED,"Pgup/Pgdn"); 
hidecur(); 

if(waitkey()==ESC)  confirm_quit(); 
wcenters(wrow,attrl,"  "); 
wprints(wrow,0,attr2,"  "); 

} 


/**********************************************************************/ 


/*  This  routine  causes  short  dealys  during  execution 


*/ 


^****^**^******ii^t ********************************************* **^*****^ 


static  void  short_delay(void) 

{ 

delay  _(SHORT_DELAY); 

} 
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/***********************************************¥**********************/ 

/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  *1 

/*  the  selection  bar  moves  on  or  off  the  [Q]uit  menu  items.  */ 

i*m************************************** t******************************/ 


static  void  quit_window(void) 

r 

i 

static  WINDOW  handle=0; 


if(handle)  { 
wactiv(handle); 
wclose(); 
handle=0; 

} 

else  { 

handle=wopen(  1 4,4 1 , 1 7,70,0,  YELLOWLRED.WHTTELRED); 
wputs("  Quit  takes  you  back  to  theNn  demo  program’s  main  menu.”); 

} 

} 


^**********************************iic*!ic*********************************y 

/*  shows  the  cursor  again  if  it  has  been  hidden  */ 

y**********************************************************************y 


static  void  restore_cursor(void) 

{ 

wtextattr(WHITELMAGENTA); 

showcur(); 

} 


y******** ******* ********* ******** ************************ **************/ 

/*  enlarges  or  shrinks  the  windows  */ 

y**********************************************************************y 

static  void  size_window(int  nerow,int  necol) 

{ 


wsize(nerow.necol); 

short_delay(); 

} 
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/**********************************************************************/ 

/*  moves  the  active  window  to  a  given  screen  coordinates  */ 

/**********************************************************************/ 

static  void  move_window(int  nsrow,int  nscol) 

{ 

if(wmovp(n«row,n«'ol))  e?TOr_<*vit(!); 
short_delay(); 

} 

^*********-*4^**********************************************************^ 

/*  this  routine  that  calls  rooted_trees  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/**********************************************************************/ 

void  Pl() 

{ 

wcloseall(); 

iooted_trees(); 

} 

f*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  4c  4c  *  *  ili  *  *  *  *  i)i  *  *  4c  *  *  *  *  *  *  *  *  *  *  *  4c  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

/*  this  routine  that  calls  definition  4-2-1  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/ 

void  P2() 

( 

wcloseallO; 

definition_4_2_l(); 

) 

/**********************************************************************/ 

/*  this  routine  that  calls  definition  4-2-2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/*********************************************************************  *y 

void  P3() 

{ 

wcloseallO; 

example_4_2_l(); 
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I************** ************************************************** ****** I 

/*  this  routine  that  calls  definition  4-2-2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

I********************************************************************** I 

void  P4() 

( 

wcloseallO; 

definition_4_2_2(); 

} 

j**********************************************************************/ 

/*  this  routine  that  calls  theorem_4_6  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

I* ********************************************************************* j 

void  P5() 

{ 

wcloseallO; 

theorem_4_6(); 


***********************************************************  J 

/*  this  routine  that  calls  example  4-2-3  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

I* ******************************************************************** *[ 

void  P6() 

( 

wcloseallO; 

example_4_2_3(); 

} 

/*********************** *********************************************** I 

/*  this  routine  that  calls  exercises  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

I**********************************************************************/ 

void  P7() 

{ 

wcloseallO; 

exercisesO; 

} 
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^* **************************************************************  *******/ 

/*  this  routine  that  calls  exerl  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/**********************************************************************/ 

void  P8() 

{ 

wcloseall(); 
exerl  (); 

} 

/**********************************************************************/ 

/*  this  routine  that  calls  exer2  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

j* ************************************************* ********************y 

void  P9() 

{ 

wcloseall(); 

exer2(); 


/**********************************************************************/ 

/*  this  routine  that  calls  exer3  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/**********************************************************************/ 
void  F10() 

{ 

wcloseall(); 

exer3(); 

} 

/********** *************************************************** *********/ 

/*  this  routine  that  calls  exert  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/**********************************************************************/ 

void  PI  1() 

{ 

wcloseallO; 

exer4(); 

} 
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/**********************************************************************/ 

/*  this  routine  that  calls  example  4-2-2  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/*************** ****************4^******** *****************************/ 

void  P12() 

{ 

wcloseallO; 
example_4_2_2() ; 

) 

/**********************************************************************/ 


/*  main  routine  that  calls  rooted  trees  tutorial  */ 

^* *********************************************************************/ 

void  main() 

{ 

initializeO; 

rooted_trees(); 

} 
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I* *********************************************************************/ 

/*  This  routine  tells  about  the  rooted  trees.  It  gives  the  definitions,  */ 

/*  examples  and  theorems  about  the  trees.  */ 

y* *********************************************************************/ 


static  void  rooted_trees(void) 

{ 


cclrscrn(LGREYI_BLUE); 

I* *******************************************************************/ 

/*  attach  [Pagedown]  to  the  definition_4_2_10  function  */ 
setonkey(0x5 100,P2,0); 

/********************************************************************/ 


if((w[l]=wopen(5, 15, 19,60, 3,LCYANI_BLACK,WHITELRED))==0) 
error_exit(l); 

wtitle("[Rooted  Trees]",TQ5NTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputsw("  In  previous  chapter  we  introduced  the  special  type  of  relation” 

",  tree,  which  is  exceptionally  useful  in  a  variety  of  computer  science" 

"  applications,  and  which  is  usually  represented  by  its  digraph. " 

"  These  relations  are  essential  for  the  construction  of  data  bases" 

”  and  language  compilers,  to  name  just  two  important  areas.  Now  we" 

"  will  talk  about  a  type  of  tree,  which  is  called  rooted  tree,  because” 

"  of  its  appearance.  Let’s  illustrate  this  with  an  example.  "); 
press_a_key(12); 
wslide(0,30); 
wslide(0,0); 

^* *******************************************************************/ 
if((w[2]=wopen(13,10,22,70,3,LCYAN!_BROWN,WHITEI_GREEN))==0) 
error_exit(l); 

wtitle("[Rooted  Trees  -  Example] ",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputswf'  Although  we  are  talking  about  its  use  in  computer  science" 

"  applications,  for  the  sake  of  simplicity  our  example  will  be  " 

"  from  daily  life.  We  all  know  that  people  have  always  been  " 

"  interested  in  learning  about  the  descendants  of  historically" 


I 


619 


"  important  individuals.  To  assist  in  these  investigations  a" 

"  genealogical  chart  is  often  drawn.  Here  is  an  example."); 
press_a_key(7); 
short_delay(); 
wcloseallO; 

Z****^**************************************************************/ 

spawnl(P_WAIT,"examp42 1  .exe",NULL) ; 
cclrscm(LGREYI_BLUE); 
shon_delay(); 
defmition_4_2_  1  () ; 

} 
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/**********************************************************************/ 
/*  This  routine  gives  the  definitions  of  rooted  trees  */ 

/***************************************** ****** ***********************/ 


void  definition_4_2_l(void) 


/*******:i^  **************************************************  *********/ 


/*  attach  [Pageup]  to  the  rooted_trees()  function  */ 
setonkey(0x4900,P  1 ,0); 

/* *********************************** *** *****************************/ 


/*  attach  [Pagedown]  to  the  example_4_2_l()  function  */ 
setonkey(0x5 1 00,P3,0); 


/********************************************************************/ 


if((w[  1  ]=wopen(5,20,9,60,3,LCYANI_RED,WHITELGREEN))==0)  error_exit(  1 ); 

wtitle("  [Rooted  Trees]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs("\n  It  is  time  to  see  some  definitions...  "); 

press_a_key(2); 

short_delay(); 

wcloseO; 

if((w[2]=wopen(  1 ,20,25,58,3,LCYANI_BLACK,REDI_LGRE  Y))==0) 
error_exit(l); 

wtitle("[Rooted  Trees]", TCENTER,_CYANIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs("Nn  Definition_4_2_l  :  Rooted  treeViNn"); 

wputsw("  Given  a  digraph  T,  is  a  rooted  tree  satisfying  the  following  " 

"  conditions 

wputs("\n\n  1.  The  underlying  graph  of  T  is  connected\n\n"); 
wputsw("  2.  There  exist  exactly  one  vertex  R  of  T  such  that  the  indegree" 

"  of  R  is  0  and  the  indegree  of  any  other  vertex  is  1."); 
wputsCSnNn  This  vertex  R  is  called  the  root  of  the  rooted  tree."); 
press_a_key(22); 
wslide(0,0); 
example_4_2_l(); 

} 
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J**********************************************************************/ 

/*  This  routine  gives  an  example  about  converting  a  suitable  graph  into  a  */ 

/*  rooted  tree.  */ 

/**********************************************************************/ 


void  example_4_2_l(void) 

{ 


/********************************************************************/ 


/*  attach  [Pageup]  to  the  definition_4_2_10  function  */ 
setonkey(0x4900,P2,0) ; 


/*  attach  [Pagedown]  to  the  definition_4_2_2()  function  */ 
setonkey(0x5 100,P4,0); 

^****************** ***************************************************  ^ 
if((w[3]=wopen(5,20,9,60,3,LCYANLRED,REDI_LGREY))==0)  error_exit(  1 ); 
wtitle("[Rooted  Trees]", TCENTER,_LGREYIBROWN); 
add_shadow(); 
whelpcat(H_WINTTT'LE) ; 
wputs("\n  And  now,  how  about  an  example  ?"); 
press_a_key(2); 
wslide(0,39); 
short_delay(); 
wcloseallQ; 


j********************************************************************l 


spawnl(P_WArr,"examp422.exe",NULL); 

cclrscm(LXjREYI_BLUE); 

^* ******************************************************************* ^ 


if((w[4]=wopen(10,20,14,60,3,LCYANLRED,REDI_LGREY))===0)  error_exit(l); 

wtitle("[Rooted  Trees]  ",TCENTER,_LGREYtBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputs("\n  Some  more  definitions  ?  "); 

press_a_key(2); 

wcloseO; 

short_delay(); 

definition_4_2_2(); 

} 


622 


/**********************************************************************/ 
/*  This  routine  gives  the  definitions  of  concepts  related  with  rooted  trees  */ 

/*  (i.e.  parent,  child,  ancestor,  descendent,  etc.  */ 

y************ ****************************** ****************************/ 


void  definition_4_2_2(void) 


/********************************************************************/ 


/*  attach  [Pageup]  to  the  example_4_2_10  function  */ 
setonkey(0x4900,P3,0); 


y*  ************************ **************************************** ***/ 


/*  attach  [Pagedown]  to  the  example_4_2_2Q  function  */ 
setonkey(0x5 1 00,P  1 2,0); 


/********************************************************************/ 


if((w[5]=wopen(  1,20,25, 58, 3,  LCYANI_BLACK,REDI_LGREY))==0) 
error_exit(l); 

wtitle("[Rooted  Trees  -  Definition_4_2_2) " ,TCENTER,_C Y ANI B ROWN ); 

add_shadow(); 

whelpcat(H_WINTITLE) ; 

wputs(”\n  Definition_4_2_2  :  Rooted  tree\n\n"); 

wputs("  In  a  rooted  tree  : "); 

wputs('\n\n  1.  If  (u,v)  is  an  edge  then\n\n"); 

wputs("  a)  u  is  the  parent  of  v.\n\n"); 

wputs("  b)  v  is  the  child  of  u.\n\n"); 

wputs("  2.  If  there  exist  a  simple  directed  path  from  u  to  v,  then  :\n\n"); 

wputs("  a)  u  is  ancestor  of  v.\n\n"); 

wputs("  b)  v  is  descendent  of  u.\n\n"); 

wputs("  3.  A  terminal  vertex  ( or  leaf )  has  no  children.  \n\n"); 

wputs("  4.  An  internal  vertex  has  children."); 

press_a_key(22); 

wslide(0,39); 

short_delay(); 

example_4_2_2(); 

} 
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*******************4^** *4^*************************** ****** **********/ 

/*  This  routine  gives  an  example  graph  to  show  the  relations  that  are  in  */ 

/*  in  the  definition_4_2_2.  */ 

/**********************************************************************/ 


void  example_4_2_2(void) 

{ 


/********************************************************************/ 

/*  attach  [PageUp]  to  the  definition  4-2-2  function  */ 

setonkey(0x4900vP4,0); 

/********************************************************************/ 


/*  attach  [Pagedown]  to  the  theorem_4_6()  function  */ 
setonkey(0x5 100,P5,0); 


/********************************************************************/ 


if((w[6]=wopen(l 0,20, 1 4,60,3,  LCYANI_RED,REDI_LGREY))==0)  error_exit(  1 ); 

wtitle("[Rooted  Trees]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs("\n  To  see  an  example  "); 

add_shadow(); 

press_a_key(2); 

shon_delay(); 

wcloseall(); 

spawnl(P_WAIT,"examp423.exe",NULL); 

cclrscm(LGREYI_BLUE' 

theorem_4_6(); 

} 
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/**********************************************************************/ 
/*  This  routine  gives  the  theorem  about  the  rooted  trees.  Besides,  if  the  */ 

/*  user  wants,  it  gives  the  proof  for  this  theorem.  */ 

y****************^****************************************************/ 


void  theorem_4_6(void) 

{ 

struct  _onkey_t  *kblist; 


/*  attach  [Pageup]  to  the  example  4-2-2  function  */ 
setonkey(0x4900,P  1 2,0); 

^****t***************************************************************/ 


/*  attach  [Pagedown]  to  the  exampie_4_2_3()  function  */ 
setonkey(0x5 1 00,P6,0); 


/********************************************************************/ 


if((w[  1  ]=wopen(  1 ,4, 1 3,7 1 ,3,LC Y ANI_BLACK,REDI_LGRE  Y))==0)  error_exit(l); 

wtitle("[Rooted  Trees  -  Theorem_4_6]",TCENTER,_MAGENTAIWHITE); 

add_shadow(); 

whelpcat(H_WIN'HlLE); 

wputs("Theorem_4_6\n\n"); 

wputs("In  a  rooted  tree  with  root  RNnNn"); 

wputs("  (a)  The  number  of  vertices  =  number  of  arcs  +  l.\n\n”); 

wputs("  (b)  There  are  no  directed  cycles  in  T.\n\n"); 

wputsw("  (c)  There  is  exactly  one  simple  directed  path  from  R  to  every  " 

"  other  vertex."); 
press_a_key(10); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!  wopen(9,20, 1 3,55,0,B ROWNI_C Y AN,REDI_BLACK))  error_exit(l); 
add_shadow(); 

wputs(’Vt  Do  you  want  to  see  the  proof?  \033A\156Y\b"); 

clearkeysO; 

showcur(); 

if(wgetchf("YN",’Y’)==’Y’)  { 
wclose(); 
proof_4_6(); 
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} 

else  wcloseO; 
hidecur(); 

if(_mouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
wcloseO; 

/***^****iM^*****4^****il^********************************************/ 

if((w[5]=wopen(10,20, 14,60,3,LCYANI_RED,REDI_LGREY))=0)  error_exit(  1 ); 

wtitle("[RootedTrees]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs("\n  One  more  example...  "); 

press_a_key(2); 

wcloseO; 

short_delayO; 

/********************************************************************/ 


example_4_2_3(); 

} 


626 


/**********************************************************************/ 
/*  This  routine  gives  the  proof  to  the  theorem_4_6.  */ 

^*ii<***]ii*  ***************************************************  ************^ 


static  void  proof_4_6(void) 

{ 


/********************************************************************/ 


/*  attach  [PageUp]  to  the  example  4-2-2  function  */ 
setonkey(0x4900,P  1 2,0); 

/********************************************************************/ 


/*  attach  [Pagedown]  to  the  example_4_2_30  function  */ 
setonkey(0x5 1 00,P6,0); 


^********** ********************* *************************************y 


if((w[2]=wopen(14, 4,24,71, 3, LCYANI_RED,WHITELCYAN))==0)error_exit(l); 

wtitle("[Theorem_4_6  -  Proof]",TCENTER,_MAGENTAIWHITE); 

add_shadow(); 

whelpcat(H_WINTITLE) ; 

wputs("\n"); 

wputsw("  When  the  directions  on  the  directed  edges  are  ignored  and" 

"  T  becomes  a  tree,  the  proofs  of  (a)  and  (b)  follow  immediately." 

"  Next  we  will  show  that  there  is  a  direct  path  from  R  to  any  other" 

"  vertex  "); 
press_a_key(8); 
wcloseO; 

} 
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/**********************************************************************/ 
/*  This  routine  gives  an  example  about  given  a  graph  finding  out  if  it’s  */ 

/*  a  rooted  tree.  */ 

/**********************************************************************/ 
void  example_4_2_3(void) 
l 

register  int  *scm; 


I**** ************************************************** **************y 


/*  attach  [Pageup]  to  the  theorem  4-6  function  */ 
setonkey(0x4900,P5,0); 


/*********************** ************************* ******* *************y 


/*  attach  [Pagedown]  to  the  exercises()  function  */ 
setonkey  (0x5 1 00,P7 ,0) ; 


**************************************************************  J 


if((w[6]=wopen(l,10,8,70,3,LCYANI_BLACK,REDLLGREY))==0)  error_exit(l); 

wtitle("[Example_4_2__3  ]",TCENTER,_CYANIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs("\n"); 


wputsw("  Let  A  =  {  a,  b,  c,  d,  e,  f,  g,  h,  i,  j  }  and  let  T  =  {  (b,  c)," 

"  (b,  a),  (d,  e),  (d,  f),  (e,  h),  (f,  g),  (d,  b),  (g,  i),H 
”  (g,  j)  } .  Show  that  T  is  a  rooted  tree,  and  identify  the  root."); 
short_delay(); 

/********************************************************************/ 


if((w[6]=wopcn(9,20,13,60,3,LCYANI_RED,BLACKI_LGREY))==0) 

error_exit(l); 

wtitle("[Rooted  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WIM  1 1’lLE); 

wputs("\n  To  see  the  solution  ”); 

press_a_key(2); 

wcloseO; 

short_delay(); 

^**************** ****************************************************  I 
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if((w[7]=wopen(9,10^3,70,3»LCYANI_BLACK,REDI_LGREY))==0) 

eiror_exit(l); 

wtitle("[Example_4_2_3  -  Solution]", TCENTER,_CYANIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs("\n"); 

wputsw("  Since  no  paths  begin  at  vertices  a,  c,  h,  i,  and  j,  these  vertices" 

"  cannot  be  roots  of  a  tree.  There  are  no  paths  from  vertices  f,  g,  " 

"  b,  and  e  to  vertex  d,  so  we  must  eliminate  these  vertices  as  possible" 

"  roots.  Thus  if  T  is  a  rooted  tree,  its  root  must  be  vertex  d.  It  is " 

"  easy  to  show  that  there  is  a  path  from  d  to  every  other  vertex." 

"  For  example,  the  path  d,  f,  g,  i  leads  from  d  to  i,  since  (d,  f)," 

"  (f,  g),  (g,  i)  are  all  in  T.  We  draw  the  digraph  of  T,  beginning" 

"  with  vertex  d,  and  with  edges  shown  downward.  You  will  see  the  result" 

"  in  the  following  figure.  To  see  the  figure  "); 
press_a_key(12); 
wcloseall(); 

/********************************************************************/ 


spawnl(P_WAIT,"examp424.exe",NULL); 

cclrscm(LGREYL.BLUE); 

exercises(); 

} 
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y***********************4^*********************************************y 
/*  This  routine  makes  a  small  quiz  about  the  rooted  trees.  */ 

y**********************************************************************y 

void  exercises(void) 

{ 

register  int  *screen; 


y********************************************************************y 

/*  attach  [Pageup]  to  the  example_4_2_30  function  */ 
setonkey(0x4900,P6,0); 

y************^*******************************************************y 
/*  attach  [Pagedown]  to  the  exerl()  function  */ 
setonkey  (0x5 1 00,P8,0); 

y****************^**************************************************y 


if((  w[  1  ]=wopen(5, 15,1 0,65,3,LCYANI_GREEN,WHITELRED))==0) 
error_exit(l); 

wtitle("[Rooted  Trees]", TCENTER,_LXjREYIBROWN); 

whelpcat(H_WINTTTLE); 

add_shadow(); 

wputst.  "\n'  j; 

wputsw("  We  have  completed  our  presentation  of  this  section.  Are” 

”  you  ready  for  a  pop  quiz  ?  ”); 
press_a_key(3); 
short_delay(); 
wclose(); 

if((screen=ssave())==NULL)  enor_exit(3);  { 


y**% ******* *********************** ********************************** *y 


exerl(); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  { 
mssupport(MS_FULL); 
msgotoxy(  12,49); 

} 

} 

srestore(screen); 
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/*******4^*********************  I****************************************/ 

/*  Dummy  function  to  call  the  actual  exercise  4.2.1  */ 

/*************************************************+***************+****y 

static  void  exerl(void) 


/♦a******************************************************************/ 

/*  attach  [Pageup]  to  the  example_4_2_30  function  */ 
setonkey(0x4900,P6,0); 

/*4^****4^*** ******************4^**4^********************************/ 

/*  attach  [Pagedown]  to  the  exer2()  function  */ 
setonkey(0x5 100,P9,0); 

/4>4'*#*******4^4i****4>**********4‘4t4‘4>4t*4<4‘4^***4^4‘4‘4‘4‘4‘4‘4(4'4c4i4'4t4‘4'4^4c4'4c4t4c4'4c4t/ 

if((w[  1 8]=wopen(5, 1 5, 10,65,3,LC  YANI_GREEN,WHITEI_RED))==0) 
error_exit(l); 

wtitle("[Rooted  Trees]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  first  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_WAIT,"q421.exe",NULL); 
cclrscm(LGRE  YI_BLUE) ; 
exer2(); 
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/**********************************************************************^/ 
/*  Dummy  function  to  call  the  actual  exercise  4.2.2  */ 

^**********************************************************************/ 
static  void  exer2(void) 

{ 

/********************************************************************/ 


/*  attach  [Pageup]  to  the  exerl()  function  */ 
setonkey(0x4900,P8,0); 


/********************************************************************/ 


/*  attach  [Pagedown]  to  the  exer3()  function  */ 
setonkey  (0x5 1 00,P  1 0,0); 

^/* ******************************************************************  *y 


if((w[  1 8]=wopen(5, 1 5,10,65,3,LCYANI_GREEN,WHITELRED))==0) 
error_exit(l); 

wtitle("[Rooted  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs(”\n"); 

wputsw("  Here  is  the  second  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_WAIT,"q422.exe",NULL); 

cclrscm(LGREYI_BLUE); 

exer3(); 

} 
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/**********************************************************************/ 
/*  Dummy  function  to  call  the  actual  exercise  4.2.3  */ 

/*************** **:M************************ ***************************/ 

static  void  exer3(void) 

{ 

/********************************************************************/ 

/*  attach  [Pageup]  to  the  exer2()  function  */ 

setonkey(0x4900,P9,0); 

Z********^***********************************************************/ 

/*  attach  [Pagedown]  to  the  exer4()  function  */ 
setonkey(0x5100,Pl  1,0); 

/********************************************************************/ 


if((w[  1 8]=wopen(5, 15,1 0,65,3,LCYANLGREEN,WHITEI_RED))==0) 
error_exit(l); 

wtitle("[Rooted  Trees]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  third  question.  "), 

press_a_key(3); 

wclose(); 

spawnl(P_WAIT,"q423.exe",NULL); 

cclrscm(LGREYi_BLUE); 

exer4(); 

} 
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/**********************************************************************/ 


/*  Dummy  function  to  call  the  actual  exercise  4.2.4  */ 

/*********************  ************************************************/ 


static  void  exer4(void) 

( 


/******************************** ■************************************/ 


/*  attach  [Pageup]  to  the  exer3()  function  */ 
setonkey(0x4°00,P  1 0,0); 

/*************4^****4^***^.*******%***********************************/ 


if((w[  1 8]=wopen(5, 1 5, 10,65,3,LCY  ANLGREEN,WHITELRED))==0) 
erTor_exit(l); 

wtitle("  [Rooted  Trees]",TCENTER,_LGREYIBROWN); 

wheIpcat(H_WIhTnTLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  forth  question.  "); 

press_a_key(3); 

wclosef); 

spawnl(P_WAIT,"q424.exe",NULL); 

cdrscm(LGREYLBLUE); 

wcloseallO; 

normal_exit(); 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  examp421.c 
:  Atilla  BAKAN 
:  Apr.  16,  1990 
:  Apr.  17,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 

V 

/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(_TURBOC_) 

#include  <dir.li> 

#else 

#include  <direct.h> 

#endif 

#if  defined(M_I86)  &&  !defined(  ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  findt 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff  name  name 

#define  ff  attrib  attribute 

#eudif 


/*  Turbo  C  */ 

/*  all  others  */ 
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#define  _GRAPH_TJDEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confum_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

^sk********************************************************************* 

/*  graphic  initialization  variables  */ 

/********************************************************************** 
int  currjmode; 
int  graphch  iver; 
int  graphmode; 
int  graph_error. 
int  backcolor; 
int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX,  MaxY; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register_drivers(void) 

I 

if(registeibgidriver(CGA_<lriver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

I 
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/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

^^i,******** ******************************************************  *****1 

static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_dri  vers(); 
graphdriver  =  DETECT; 

initgrapli(&graplidriver.&graphrnode,""); 
graph_enor  =  graphresult(); 

/***************************************+****************************/ 


if(grapli_error  <  0){ 
puts(grapherronnsg(graph_error)); 
exit(l ); 

) 

MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graplimode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graplimode  ==  MCGAHI)  II  (graplimode  ==  ATT400HI))  { 
setfillstyie(SOLlD_FlLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 


else  { 

setfiJlstyle(SOLIDJFlLL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 
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/**********************************************************************/ 
static  void  confinn_graph_exit(void) 


struct  _onkey.  t  *kb!isf; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setco!or(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  inshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,”  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y’ )  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcoloi  (backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcoloi  (quitcolor); 

} 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break. 

case  'Y’:  closegraph(); 
videoinit(); 
exit(O): 
break: 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break: 

case  ’N':  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
se  tcolor(  forecolor) ; 
break: 

default :  break; 


hidecui'O; 

if(_mouse&MS_CURS)  msshowcur(); 
cligonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 

/**********************************************************************/ 
/*  Tliis  function  sets  the  text  default  values  */ 

/**********************************************************************/ 
static  void  settext(void) 


I 

settextstyle(0,0,0); 

setlinestyle(0.4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


/**********************************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************^ 
void  Pause(i,j) 
bit  i,  j; 

{ 


settext(); 

outtextxy(i,j,”»>PRESS  A  KEY  TO  CONTINUE.. .<«"); 
if(waitkey()==ESC)  confirm _graph_exit(); 


y* *********************************************************************/ 

/*  main  routine  that  calls  exer  routine  */ 

^*  **************************************************************  *******/ 
void  maui( ) 


exer( ); 

) 
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^************************** *********************** *********************/ 
/*  This  routine  gives  example  of  rooted  trees.  */ 

^ ******** **************** ******************************** **************y 

void  exer(void) 

I 

^* ****************************************** *************************^ 


init_graph(); 

setcoloit  forecolor); 

bar(0,0,MaxX,MaxY); 

rect  angle(x  ,y  .MaxX-x,Max  Y  -y/2 ) ; 

outtextxy(38*x,y/2,"  EXAMPLE  4-2-1”); 

^********************************************************************^ 


moveto(  I6*x,4*y);  lineto(6*x,6*y): 
moveto(18*x.4*y);  lineto(18*x,6*y); 
moveto(20*x.4*y);  lineto(30*x,6*y); 
moveto(4*x,8*y);  lineto(2*x,10*y); 
moveto(7*x,8*y);  lineto(9*x,10*y); 
moveto(18*x.8*y);  lineto(18*x,10*y); 
moveto(30*x.8*y);  lineto(28*x,10*y); 
moveto(33*x.8*y);  lineto(39*x,10*y); 
moveto(  1 6*x.  I 2*y);  lineto(  1 2*x,  I4*y ); 
moveto(20*x,12*y);  lineto(24*x,14*y); 
outtextxy(  1 5  *x,5  *y/2,"  John" ); 
outtextxy  (3  *x ,  1 3  *y/2,"Ed" ); 
outtextxy(  15  *x ,  1 3  *y/2,"  Judy" ); 
outtextxy(28*x,13*y/2,"Mary"); 
outtextxy(2*x,21  *y/2,"Sam"); 
outtextxy(7*x,2 1  *y/2,"Hal"); 
outtextxy(  I6*x,21  *y/2,"Liz"); 
outtextxy(25*x,21  *y/2,"Tom”); 
outtextxy(36*x,2 1  *y/2,"  Albert" ); 
outtextxy(9*x,29*y/2,”Don"); 
outtextxy(21  *x,29*y/2, "Denise"); 

/********************************************************************/ 
outtextxy(3*x,17*y,"An  example  of  these  charts  is  drawn  above,  where  for  simplic¬ 
ity  only”); 
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outtextxy(3*x,18*y, "first  names  are  used.  It  is  understood  that  the  downward  lines 
lines"); 

outtextxy(3*x,19*y, "lines  represent  the  ”is  a  parent  of”  relationship."); 

Pause(55*x,15*y); 

setcolor(backcolor); 

bar(54*x ,  1 4*y  ,MaxX-3  *x/2, 1 6*y ); 

setcolor(  forecolor); 

outtextxy(3*x,22*y,"This  chart  can  also  be  represented  by  the  next  graph  in  which 
vertices"); 

outtextxy(3*x.23*y, "represent  individuals  and  edges  begin  at  a  parent  and  end  at  a 
child."); 

^* *******************************************************************/ 


/*  John  */ 
/*  Ed  */ 

/*  Judy  */ 
/*  Mary  */ 
/*  Sam  */ 
/*  Hal  */ 
/*  Liz  V 
/*  Tom  */ 
/*  Albert  */ 
/*  Don  */ 
/*  Denise  */ 


pieslice(7 1  *x.4*y  .0,359,2) 
pieslice(59*x.6*y,0,359,2) 
pieslice(7 1  *x.6*y, 0,359,2) 
pieslice(83*x.6*y,0,359,2) 
pieslice(52*x.  1 0*y,0,359,2) 
pieslice(62*x,10*y, 0,359,2) 
pieslice(7 1  *x.  10*y  ,0,359,2) 
pieslice(8 1  *x,  1 0*y, 0,359,2) 
pieslice(89*x.  10*y,0,359,2) 
pieslice(65*x,14*y, 0,359,2) 
pieslice(77*x,14*y,0,359,2) 
moveto(7 1  *x,4*y );  lineto(59*x,6*y ); 
moveto(7 1  *x,4*y );  lineto(7 1  *x,6*y ); 
moveto(71*x,4*y);  lineto(83*x,6*y); 
moveto(59*x.6*y);  lineto(52*x,10*y); 
moveto(59*x.6*y);  lineto(62*x,10*y); 
moveto(71*x.6*y);  lineto(71*x,10*y); 
moveto(83*x.6*y);  lineto(81*x,10*y); 
moveto(83*x.6*y);  lineto(89*x,10*y); 
moveto(71*x,10*y);  lineto(65*x,14*y); 
inoveto(71*x,10*y);  lineto(77*x,14*y); 
outtextxy(69*x,5*y/2,"John"); 
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outtextxy(55*x,6*y,"Ed"); 
outtextxy(65*x,6*y,"Judy"); 
outtextxy(84*x,6*y,"Mary"); 
outtextxy(49*x,2 1  *y/2,"Sam"); 


outtextxy(60*x,21*y/2,"HaT); 
outtextxy(66*x,10*y,"Liz"); 
outtextxy(77*x,2 1  *y/2,"Tom" ); 
outtextxy(83*x, 21  *y/2,"  Albert"); 
outtextxy(62*x,29*y/2,"Don"); 
outtextxy(74*x,29*y/2, "Denise"); 


Pause(30*x,  24*y); 

closegraphO: 

videoinit(); 


) 
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/*  PROGRAM  :  examp422.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16, 1990 
REVISED  :  Apr.  17, 1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 

/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined(_ZTC_)  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#defme  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes 


*/ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/*********** ***********************************************************/ 
/*  graphic  initialization  variables  */ 

^**********************************************************************y 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


y* *********************************************************************/ 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/★♦I********************************************************************/ 


static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 
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/**********************************************************************/ 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/*  **  **  *  *  *  *  *  *  *  ***  *  ***  #**  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  **  *  4c  *  *  lit  ***  *  *  *  ********  *  ******  **  j 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

rcgister_drivers(); 
graphdriver  =  DETECT; 

^**************4^***************************************************/ 
initgraph(&  graphdri  ver,&  graphmode, " ") ; 
graph_error  =  graphresult(); 

/********************************************************************y 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

/*******************************************************%*************/ 


MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  M CGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiUstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 

) 
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/**^*************** ******************************************* ****** ***l 


static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkcy(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  M  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  V)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcoior); 

bar(31  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor) ; 

} 

switch  (ch)  { 
case  ’y’:  closegraph(); 
videoinit(); 
exit(0); 
break; 

case  ’Y’:  closegraphO; 
videoinitQ; 
exit(0); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’.  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor) ; 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


) 


/****4^****4^******4^**************************************************/ 


/*  This  function  sets  the  text  default  values 


*/ 


/**********************************************************************/ 
static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjuGtify(HORIZ_DIR,CENTER_TEXT); 

} 

/***  DC*** ****************************************** ************* ********/ 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y*  *********************************************************************/ 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .<«"); 
if(waitkey()==ESC)  confirrn_graph_exit(); 


^*********************************************************************:|y 

/*  main  routine  that  calls  exer  routine  */ 

/******%***************************************************************/ 
void  main() 

{ 

exer(); 

} 
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/****»****************************************<*************************/ 
/*  This  routine  gives  example  of  rooted  trees.  */ 

/**********************************************************************/ 

void  exer(void) 

{ 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,Max  Y -y/2); 
outtextxy(38*x,y/2,"EXAMPLE  4-2-2"); 

I*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  j 

pieslice(15*x,4*y, 0,359,2);  /*  B  */ 
pieslice(25*x,7*y,0,359,2);  /*  A  */ 
pieslice(15*x,10*y, 0,359,2);  /*  C  */ 
pieslice(27*x,10*y,0,359,2);  /*  D  */ 
pieslice(35*x,7*y, 0,359,2);  /*  F  */ 
pieslice(40*x,4*y,0,359,2);  /*  G  */ 
pieslice(30*x,4*y,0,359,2);  /*  E  */ 
pieslice(40*x,10*y, 0,359,2);  /*  H  */ 
outtextxy(13*x,4*y,"B"); 
outtextxy(26*x,13*y/2,"A"); 
outtextxy(33*x,13*y/2,"F"); 
outtextxy(15*x,l  l*y,"C"); 
oi>ttextxy(27*x,ll*y,"D"); 
outtextxy(42*x,10*y,"H"); 
outtextxy(42*x,4*y,"G'-); 
outtextxy(28*x,4*y,"E"); 

moveto(15*x,4*y);  lineto(25*x,7*y);  lineto(35*x,7*y); 
lineto(40*x,4*y);  lineto(30*x,4*y); 
moveto(25*x,7*y);  lineto(15*x,10*y);  Iineto(27*x,10*y); 
moveto(35*x,7*y);  lineto(40*x,10*y); 

^%*******************************************************************y 

outtextxy(7*x,14*y,"The  graph  above  is  a  rooted  tree  with  root  A  since"); 
outtextxy(7*x,16*y,"(l)  when  the  directions  on  the  edges  are  ignored,  the"); 
outtextxy(7*-x,17*y,"  resulting  is  a  tree;  and"); 

outtextxy(7*x,19*y,''(2)  A  has  indegree  0,  and  all  the  other  vertices  have”); 


64X 


outtextxy(7*x,20*y,"  indegree  1."); 

outtextxy(7*x,22*y,"Now  press  any  key  to  follow  how  we  draw  the  usual  tree."); 

Pause(30*x,  24*y); 

delay_(18); 

^*  *******************************************************************/ 


pieslice(70*x,4*y  ,0,359,2); 
outtextxy(68*x,7*y/2,"A"); 
delay_(18); 


f*** ******************************** *********************************y 


pieslice(60*x,7*y, 0,359,2); 
outtextxy(58*x,7*y,"C"); 
moveto(70*x,4*y);  lineto(60*x,7*y); 
delay_(18); 

/sic*******************************************************************/ 

pieslice(70*x,7*y,0,359,2); 
outtextxy(68*x,7*y,"F"); 
moveto(70*x,4*y);  lineto(70*x,7*y); 
delay_(18); 

/********************************************************************/ 

pieslice(80*x,7*y,0,359,2); 

outtextxy(78*x,7*y,"B"); 

moveto(70*x,4*y);  lii.eto(80*x,7*y); 

delay_(18); 

pieslice(55*x,9*y, 0,359,2); 
outtextxy(53*x,9*y,"D"); 
moveto(60*x,7*y);  lineto(55*x,9*y); 
delay_(18); 

/********************************************************************/ 

pieslice(65*x,9*y,0,359,2); 

outtextxy(63*x,9*y,”H"), 

moveto(70*x,7*y);  lineto(65*x,9*y); 

delay_(18); 

/********************************************************************/ 

pieslice(75*x,9*y,0,359,2); 

outtextxy(73*x,9*y,''G''); 
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moveto(70*x,7*y);  lineto(75*x,9*y); 
delay_(18); 


pieslice(70*x,  1 1  *y, 0,359, 2); 
outtextxy(68*x,l  l*y,"E"); 
moveto(75*x,9*y);  lineto(70*x,i  l*y); 
setcolor(forecolor); 

y********************************************************************y 


Pause(30*x,  24*y); 

closegraph(); 

videoinitO; 

} 
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/*  PROGRAM  .  examp423.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16,  1990 
REVISED  :  Apr.  17,  1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  the  exercise  4_2_3 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#uiclude  <dir.h> 

#else 

#include  <direct.h>  /*  ail  others  */ 

#endif 


#if  defined(M_I86 )  &&  !defined(_ZTC_)  !*  MSC/QuiekC  */ 

#defuie  bioskey(a)  _bi°s_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ffjiame  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#defu)e  ff  attrib  attribute 
#endif 
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#define  GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init _graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 


★  if***************************/ 


/*  miscellaneous  global  variables  */ 

y* *************************************************+***************★***/ 


int  in_the_exercise  =  1 ; 


^*  ******************************************************************** *^ 
/*  graphic  initialization  variables  */ 

/*  *  ***  *  *  *******  *  afc  a#e  *  ★  *  *  ****  *  %  *  *  *  *  ★  *  *  *  *  ****  *  afe  *************  *  *  *  ***  *  **  *^ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error: 

int  backcolor; 

int  forecolor; 

int  x,  y,  MaxX,  MaxY; 


y******* *************************************************************** 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^*  ******************************************************************** *^ 
static  void  regisiei_diivers(vokl) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l ), 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l ); 
if(registerbgidiiver(ATT_driver)  <  0)  exit(l ); 
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y**********************************************************************y 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 

( 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT ; 

/*** ****************** ***********************************************/ 

i  1 1  i  t  grapl  i(  &  graphdriver  ,<& graplu  node 
graph_error  =  graphresuit(); 

/********************************************************************/ 
if(graph_error  <  0){ 
puts(grapherrormsg(graph_error)); 
exit(l ); 


/•fr*******************************************************************/ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 

x  =  MaxX/80; 
y  =  MaxY/25; 

^********************************************************************y 

settext( ); 

^**************************************************************^4,^**^^ 

if  ((gra^Lnode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLlD_FlLL,BLACK); 
backcol  or  =  BLACK; 


else  ( 

setfillstyle(SOLID_FlLL,BLUE); 
backcolor  =  BLUE; 

} 

forecolor  =  WHITE; 
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y********** ************* ’fc*********************************************^ 

/*  This  function  sets  the  text  default  values  */ 


y**********************************************************************y 


static  void  settext(void) 


I 

settextstyle(0.0,0); 

setlinestyle(0.4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


y**********************************************************************y 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y**********************************************************************y 

void  Pause(i,j) 
bit  i,  j; 

I 

settext(); 

ouftexfxy(iJ,"»>PRESS  A  KEY  TO  CONTINUE  . .«<"); 
it'(waitkey()==ESC)  I 
closegrapht ); 
videoinitO; 
exit(O); 

) 


/*  main  routine  that  calls  exer  routine  */ 

void  main( ) 

( 

exert ); 
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j-. (I*********************************************************************/ 

/*  This  routine  gives  examples  about  the  concepts  in  rooted  trees  */ 

^(t*********************************************************************/ 

void  exer( ) 


init  _graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXAMPLE  4-2-3"); 

/*  *  4c  *  *  *  4c  *  *  +  4c  %  4c  *  *  if  *  *  *  *  *  *  *  4<  *  *  *  *  *  *  *  *  4<  *  *  *  *  *  *  *  *  4c  +  4>  4<  *  *  4>  4c  *  +  *  ♦  *  *  *  f'  *  *  *  *  *  4c  *  *  *  if 

pieslice(45*x.4*y,0,359,2);  /*  R  */ 

pieslice(35*x.7*y  ,0,359,2);  /*  a  */ 

pieslice(55*x,7*y  0,359,2);  /*  b  */ 

pieslice(45*x.  1 0*y, 0,359,2);  /*  c  */ 
pieslice(65*x,10*y, 0,359,2);  /*  d  */ 
outtextxy(45*x.7*y/2,"R"); 
outtextxy(32*x,7*y,”a”); 
outtextxy(52*x,7*y,"b"); 
outtextxy(42*x,10*y,"c"); 
outtextxy(62*x,10*y,"d"); 
moveto(35*x.7*y);  lineto(45*x,4*y); 
lineto(55 *x,7*y );  Iineto(45 *x,  1 0*y ); 
moveto(55*x,7*y );  Iineto(65*x,  1 0*y ); 

outtextxy(23*x,13*y,"b  is  the  parent  of  c  and  d"); 
outtextxy(23*x,I5*y,"c  and  d  are  children  of  b"); 
outtextxy(23*x,17*y,"R  is  the  ancestor"); 
outtextxy(23*x,19*y,"c  (or  d)  is  the  descendant  of  R"); 
outtextxy(23*x,21  *y,"a,  c,  d  are  leaves  ."); 

/*#******j(****+.**i<**1(***  +  *****ic***t**c*#**  +  ***#***********************+J 

Pause(30*x,  24*y); 

closegraphO; 

videoinit(); 
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/*  PROGRAM  :  examp424.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16,  1990 
REVISED  :  Apr.  16,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  exercise  4_2_4. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h” 
#include  "cxlmou.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !defined(_ZTC_J  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  futdfirst(a,b,c)  _dos_findfirst(a,c,b) 

#defuie  findnext(a)  _dos_findnext(a) 

#define  ffblk  fuul_  t 

#define  ff_name  name 

#elif  defined! _ Z'l'C _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confimi_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show  alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confmn_exit  (void); 


/* ********************************* **************  **  ********  :|c  %****  ******/ 

/*  miscellaneous  global  variables  */ 


bit  in_the_exerc.oe  =  1 ; 


/*  graphic  initialization  variables  */ 

/if'*********************************************************************  j 

int  curr_mode; 

bit  graphclriver; 

bit  graplimode; 

int  graph_ei  tor; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MazY; 
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j*  i*************************************  **************************4<:4<**  +  *y 

/*  Tliis  function  is  used  for  including  drivers  to  the  executable  code  */ 

y* ********************************* ************************************ y 
static  void  register_drivers(void) 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 


y**********************************************************************^ 
/*  This  fiiction  initializes  the  necessaiy  graphical  routines  */ 

/* ******************************************************************** *^ 
static  void  init_graph(void) 

( 

int  xasp,  yasp; 

register_drivers( ); 
graplidriver  =  DETECT; 

/********************************************************************/ 
initgrapli(&gi  aphdi  iver.&graplunode."" ); 
graph_erroi  =  graphresult(); 

***********************************  ********************************/ 
if(graph_error  <  0){ 
puls(grapht  rronnsg(graph_error)); 
exit(l ); 

} 

^********************************************************************^ 
MaxX  =  getmaxxi ); 

MaxY  =  getmaxyi ): 
x  =  MaxX/80; 
y  =  MaxY/25. 

settexti ); 

^* *******************************************************************/ 
if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (grapiimode  =  MCGAHI)  II  (graphmode  =  ATr400HI))  ( 
setfillstyle(SOLlDJFILL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 


static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(  backcolor ); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  ( ): 

while  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32J,'x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  ( ); 

if((.ch  ==  y’)  II  (ch  ==  'n')  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  ( 

case  y':  closegraph( ); 
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videoinit(); 

exit(O): 

break: 

case  ’Y’:  closegraph{ ); 
videoiiiit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolorf  forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default  :  break; 

I 

hideout! ); 

if(_mouse&MS_CURS )  msshowcurf ); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 


/*  This  function  sets  the  text  default  values  */ 

static  void  settext(void) 

I 

settextstyle(O.O.O); 

setlinestyle(0.4.3); 

settext  justify!  HORIZ_DIR,CENTER_TEXT ): 
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/*  *********************************************************************^ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/♦fc^*******************************************************************^ 

void  Pause(i.j) 
int  i,  j; 

( 

settextO; 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()=ESC)  confirm_graph_exit(); 

) 


/**********************************************************************^ 
/*  main  routine  that  calls  exer  routine  */ 

/**********************************************************************^ 
void  main( ) 

( 

exert ); 


/******************* 

/*  this  routine  illustrates 

^* ****************** 
void  exert ) 

I 

init_grapb( ): 
setcolor(  forecolor); 
bar(0,0,MaxX.MaxY ); 
rectangle(x,y.MaxX-x,MaxY -y/2); 
outtextxy(38*x.y/2. "EXAMPLE  4-2-4”); 

pieslice(40*x.4*y  ,0.359.2); 
outtextxy(3H*x.7*y/2,''d"); 

Pause(30*x,  24*y); 

I*  I'***********#******************-*********************************#** 

pieslice(30*x.7*y. 0.359,2); 


***************************************************^ 
constructing  a  rooted  tree.  */ 

***************************************************/ 
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outtextxy(28*x,7*y,'  l 
moveto(40*x,4*y);  lineto(30*x,7*y); 
Pause(30*x,  24*y); 


pieslice(40*x,7*y  ,0,359,2); 
outtextxy(38*x,7*y,"b"); 
moveto(40*x,4*y);  lineto(40*x,7*y); 

Pause(30*x,  24*y); 

y* ******************************************************************* 


pieslice(50*x.7*y,0,359,2); 
outtextxy(48*x,7*y,"e"); 
moveto(40*x,4*y);  lineto(50*x,7*y); 
Pause(30*x,  24*y); 


pieslice(55*x,9*y,0,359,2); 
outtextxy(57*x,9*y,"h"); 
moveto(50*x.7*y);  lineto(55*x,9*y); 

Pause(30*x,  24*y); 

pieslice(25*x.9*y,0,359,2); 
outtertxy(23*x,9*y,"g"); 
moveto(30*x.7*y);  lineto(25*x,9*y); 

Pause(30*x,  24*y); 

^*  **  +  **************************************************  +  ****%**  +  *****/ 


pieslice(20*x.l  l*y,0,359,2); 
outtextxy(  18*x,l  1  *y,"i"); 
moveto(25*x.9*y);  lineto(20*x,l  l*y); 

Pause(30*x,  24 *y); 

/i******************************************************************** 


pieslice(30*x.l  l*y,0,359,2); 
outtextxy(28*x,l  1  *y,"j"); 
moveto(25*x.9*y);  lineto(30*x,l  l*y); 

Pause(30*x.  24 *y); 

/I'******************************************************************* 


pieslice(35*x.9*y,0,359,2); 

outtextxy(33*x.9*y,"a"); 
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moveto(40*x.7*y);  lineto(35*x,9*y); 

Pause(30*x,  24*y); 

pieslice(45*x.9*y, 0.359.2), 
outtextxy  (43  *x,9*y  ,"c" ); 
moveto(40*x .7*y);  lineto(45 *x,9*y ); 

Pause(30*x,  24*y); 

/************************+********+*****  *******+*******+******+******/ 
outtextxy(4*x,18*y,"  A  quick  inspection  of  this  graph  shows  that  paths  from  vertex 
d  to  every"); 

outtextxy(4*x.l9*y,"  other  vertex  are  unique,  and  there  are  no  paths  from  d  to  d. 

Thus  T  is"); 

outtextxy(4*x,20*y,"  a  tree  with  root  d."); 

/*******  *************%********%*******  *****%*********%**************3fy 

Pause(30*x,  24*y); 

closegraph(); 

videoinit(); 
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/*  PROGRAM  :  q421.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Mar.  21,1990 
REVISED  :  Apr.  17,  1990 


DESCRIPTION  :  This  program  contains  the  first  exercise  about  rooted 
trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <du  .h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#defme  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined!  ZTC _ )  /*  Zortech  C/C+r  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 
static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 
static  void  show_alg  (void); 
static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

y******* ***************************************************************/ 

/*  miscellaneous  global  variables  */ 

y* ******************************************************************* v*y 
int  in_the_exercise  =  1; 

y**********************************************************************y 

/*  graphic  initialization  variables  */ 

y**********************************************************************y 

int  curr_mode; 

int  graplulriver; 

int  graplunode; 

in'  graph  error; 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY: 
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^**********************************************************************^ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^************************************»*********************************^ 
static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

I 


^**********************************************************************^ 
/*  Tliis  fuction  initializes  the  necessary  graphical  routines  */ 

^**********************************************************************1 
static  void  init_graph(void) 


hit  xasp,  yasp; 


register_drivers(); 

graphdriver  =  DETECT; 

j* ********************************** *********************************y 

initgraph(&graphdriver,&graphmode, 
graph_error  =  graphresultO; 

j* ************************************************ *******************/ 

if(graph_error  <  0)( 
puts(grapherronnsg(graph_error)); 
exit(l ); 


MaxX  =  getma xx( ); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25: 

^********************************************************************^ 
settext( ); 

is*************************************  *****  ******************** *^ 

if  ((graplunode  --  CGAIII) !!  (^lapluiiudc  —  MCGAMtiD) !!  (grapluiicdc  = 
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ATT400MED)  II  (graplimode  =  MCGAH1)  II  (graphmode  ==  ATT400HI))  | 
setfiUstyle(SOLID_FlLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

I 

forecolor  =  WHITE; 


static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(  quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getcli  (); 

while  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)»  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getcli  ( ); 

if((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcoIor(  backcolor ); 

bar(3 1  *x.23*y.69*x,97*y/4); 

setcolor(quitcolor), 

) 

switch  (ch)  { 
case  y';  closeg'apb(); 
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videoinitO; 

exit(O): 

break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(3 1  *x,23*y  ,69*x,97*y/4)i 

setcolor(forecolor); 

break; 

case  ’N';  setcolor(backcolor); 

bar(4*x/3 ,23  *y  ,30*x,97  *y/4 ); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break: 

default :  break: 

) 

hidecurO; 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 


/********************************************************************** 
/*  This  function  sets  the  text  default  values  */ 

/********************************************************************** 
static  void  settext(void) 

( 

settextstyle(0,0,0); 
setlinesty  le(0,4,3 ); 

settextjustify  ( HORIZ_DLR,CENTER_TEXT ); 

} 
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/*  fc***********************************************  .j;********************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/%*******************************************jt,**,|,%*:|,*****4,*]4,*.|,J|,.t,,(,.|,:|,I|,*3t,I|y 

void  Pause(i.j) 
int  i,  j; 

I 

settextO; 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()==ESC)  confirm_graph  _exit(); 


/******************:|<**********************  +  j|<,((,(<jtl*.(,.(,j),.(<j)t,),,|,,(l3<*,|t,(,j)<:)(.(,j)t5|,.),])t.),.(<j|,.(y 

/*  main  routine  that  calls  exer  routine  */ 

J***  *******************************************),**  *  +  ***4,, tt**************^ 

void  main() 

I 

exet(); 
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/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

y*******************************  *********  *******************  ***********y 

static  void  exer(void) 

I 

char  Ch; 

init_graph(); 
setcoloit  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y.MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2, "EXERCISE  1"); 

pieslice(35*x.5*y,0,359,2); 
pieslice(30*x,7*y,0,359,2); 
pieslice(40*x,7*y,0,359,2); 
pieslice(55*x,5*y, 0.359,2); 
pieslice(50*x,7*y,0,359,2); 
pieslice(60*x,7*y  ,0,359,2); 
nioveto(35*x,5*y);  lineto(30*x,7*y); 
moveto(35*x.5*y);  lineto(40*x,7*y); 
moveto(55  *x .5 *y );  Iineto(50*x,7*y ); 
moveto(55*x,5*y);  lineto(60*x,7*y); 

outtextxy(29*x,2*y,"Is  this  graph  a  rooted  tree  ?"); 
outtextxy(  15*x,18*y, "Enter  you:  choice  here  — >”); 

Ch  =  getch  (.); 

if(Ch==ESC)  confinn_graph_exit(); 

while  (!((Ch  ==  ’y’)  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  II  (Ch  =  ’N’)))  { 
outtextxy(48*x,18*y,"  Please  type  y  or  n"); 

Ch  =  getch  ( ); 

if(Ch==ESC)  confirm  __graph_exit(); 

if((Ch  ==  y )  II  (Ch  ==  ’n’)  II  (Ch  ==  ’Y’)  I!  (Ch  ==  ’N’)) 

setcolor(  backcolor ); 

bar(50*x,l  7*y,88*x,19*y); 
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setcolor(forecolor); 


switch  (Ch)  { 

case  ’y’:  outtextxy(47*x,18*y,"y"); 

outtextxy(52*x,J8*y,"No.  Because,  it  does  not  satis-"): 
outtextxy(52*x,19*y,"fy  any  one  of  the  properties  of "); 
outtextxy(52*x,20*y,"a  rooted  tree.  First  it  is  not  a"); 
outtextxy(52*x,21*y,"tree  (it  is  not  connected)  and"); 
outtextxy(52*x,22*y,"and  it  has  more  than  one  vertex"); 
outtextxy(52*x,23*y,"with  indegree  of  0."); 
break; 

case  ’Y’:  outtextxy(47*x,18*y,"Y"); 

outtextxy(52*x,18*y,"No.  Because,  it  does  not  satis-”); 
outtextxy(52*x,19*y,"fy  any  one  of  the  properties  of  "); 
outtextxy(52*x,29*y,"a  rooted  tree.  First  it  is  not  a"); 
outtextxy(52*x,21  *y,"tree  (it  is  not  connected)  and"); 
outtextxy(52*x.22*y,"and  it  has  more  than  one  vertex"); 
outtextxy(52*x,23*y."with  indegree  of  0."); 
break: 

case  ’n":  outtextxy(47*x,18:t'y,"n"); 

outtextxy(52*x,18*y.' You  are  right!  Conratulations."); 
bretik; 

case  ’N':  outtextxy(47*x,18*y,"N"); 

outtextxy(52*x.l8*y,"You  are  right!  Conratulations."); 
break; 

default  :  break; 

I 

Pause(30*x.24*y ); 

closegraph( ); 
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/*  PROGRAM  :  q422.c 
AUTHOR  .  Atilla  BAKAN 
DATE  :  Mar.  20, 1990 
REVISED  :  Apr.  17,  1990 

DESCRIPTION  :  This  program  contains  the  second  exercise  about  rooted 
trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(_TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  deftned(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bk>s_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#defme  ffblk  fmd_t 

#defme  ff_name  name 

#elif  defmed( _ ZTC _ )  /*  Zortech  C/C++  */ 

#defme  fiblk  FIND 

#define  tfjname  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


/***************************************************.,****«*************/ 

/*  miscellaneous  global  variables  */ 

***%***************£**%************************%******%************$*/ 

int  in_the_exercise  =  1 ; 


^*************»**************Jt:Jt:*t**********4:**********^**=t;********)(<****y 

/*  graphic  initialization  variables  */ 

/**********************************************************************/ 
int  curr_mode; 
int  graphdriver; 
int  graphmode; 
int  graph_error, 
int  backcolor, 
int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX,  MaxY; 
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I******************************************************** ************** ^ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  *1 

I********************************************************** ************ ^ 


static  void  register_drivers(void) 

{ 

if(rcgisterbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exittj); 

} 


I**********************************************************************! 

/*  This  fuction  initializes  the  necessary  graphical  routines  *1 

y*** ************************************************************** *****y 


static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

y****** ************* *************************** **********************y 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresultQ; 

y********************************************************************y 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 

) 

y********************************************************************y 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  -  MaxY/25; 

^h************************************* ******************************* ^ 

settext(); 

I******** ************************************************************  i 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  =  ATT400HI))  { 
setfiUstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiUstyle(SOLIDJFILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 


*********************************************************************/ 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  0; 

if((ch  =  V)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(qui  tcolor) ; 

) 

switch  (ch)  { 
case  *y’:  closegraphQ; 
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videoinitO; 

exit(O); 

break; 

case  *Y’:  closegraph(); 
videoinitQ; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97  *y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 


/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

/************************************************************ **********y 

static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 
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y* ****************** ***************************************************y 

I*  Equivalent  of  prcss_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 


void  Pause(i  j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,''»>PRESS  A  KEY  TO  CONTINUE... «<"); 
if(waitkey()==ESC)  confirm  _graph_exit(); 

} 


y* *************************************** ******************************  f 
/*  main  routine  that  calls  exer  routine  */ 

y************************** *********************************** *********y 

void  main() 

{ 


exer(); 

} 
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/********************************************4:*************************/ 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/*********************4^***********j^********* *******4^** ******** ******y 

static  void  exer(void) 

{ 

char  Ch; 


init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXERCISE  2"); 

^********************************************************************/ 

pieslice(40*x,3*y,0,359,2); 

pieslice(28*x,5*y,0,359,2); 

pieslice(40*x,5*y,0,359,2); 

pieslice(52*x,5*y,0,359,2); 

pieslice(20*x,7*y,0, 359,2); 

pieslice(36*x,7*y,0,359,2); 

pieslice(44*x,7*y,0,359,2); 

pieslice(60*x,7*y,0,359,2); 

pieslice(62*x,9*y,0,359,2); 

moveto(20*x,7*y);  lineto(28*x,5*y);  lineto(40*x,3*y); 

lineto(52*x,5*y);  lineto(60*x,7*y);  lineto(62*x,9*y); 

moveto(28*x,5*y);  lineto(36*x,7*y); 

moveto(40*x,3*y);  lineto(40*x,5*y); 

moveto(52*x,5*y);  lineto(44*x,7*y); 

outtextxy(79*x/2,5*y/2,"C"); 

outtextxy(26*x,5*y,"G"); 

outtextxy(79*x/2, 1 1  *y/2,"H"); 

outtextxy(54*x,5*y,"A"); 

outtextxy(61*x,7*y,"B"); 

outtextxy(20*x,15*y/2,"D"); 

outtextxy(36*x,  1 5*y/2,'’E "); 

outtextxy(44*x,15*y/2,"F"); 
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outtextxy(62*x,19*y/2,"I"); 


********************************************  ***************^ 


outtextxy(18*x,l  l*y,"Which  one  of  the  following  statements  is  false  ?’’); 
outtextxy(20*x,13*y,"a)  F  is  left  child  of  A."); 
outtextxy(20*x,14*y,"b)  I  is  descendent  of  C  and  H  and  A."); 
outtextxy(20*x,15*y,"c)  G  is  root  of  C’s  left  subtree.’’); 
outtextxy(20*x,16*y,"d)  H  is  a  terminal  vertice."); 
outtextxy(18*x,18*y,"Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm _graph_exit(); 

while  (!((Ch  =  ’a’)  II  (Ch  =  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,  1 8*y,"  Please  type  a,b,c,  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)) 

setcolor(backcolor); 

bar(50*x,17*y,88*x,19*y); 

setcolor(forecolor); 

} 

switch  (Ch)  { 

case  ’a’:  outtextxy(50*x,18*y,"a"); 

outtextxy(55*x,l8*y,"No.  That’s  true,  so  you  are"); 
outtextxy(55*x,19*y, "wrong.  The  answer  is  ’b\  "); 
outtextxy(55*x,20*y, "because  I  is  descendent  of’); 
outtextxy(55*x,21*y,"C  and  A  but  not  H."); 
break; 

case  ’b’:  outtextxy(50*x,18*y,"b"); 

outtextxy(55*x,18*y, "Correct.  You  found  the  false  one."); 
break; 

case  ’c’:  outtextxy(50*x,18*y,"c"); 

outtextxy(55*x,18*y,"No.  That’s  true,  so  you  are"); 
outtextxy(55*x,19*y, "wrong.  The  answer  is  ’b’, "); 
outtextxy(55*x,20*y, "because  I  is  descendent  of'); 
outtextxy(55*x,21*y,"C  and  A  but  not  H."); 
break; 

case ’d’:  outtextxy(50*x,18*y,"d"); 
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outtextxy(55*x,18*y,"No.  That’s  true,  so  you  are"); 
outtextxy(55*x,19*y,"wrong.  The  answer  is  *b\  "); 
outtextxy(55*x,20*y, "because  I  is  descendent  of); 
outtextxy(55*x,21*y,"C  and  A  but  not  H."); 
break; 

default  :  break; 

) 

Pause(30*x,24*y); 

closegraphO; 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q423.c 

:  Atiila  BAKAN 
:  Mar.  20,  1990 
:  Apr.  17,  1990 


DESCRIPTION  :  This  program  contains  the  third  exercise  about  properties 
of  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M _I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  fmd_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _G  RAP H_T_DEFINED 


l*  function  prototypes  */ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_so!ution  (void); 
static  void  compare_solutions  (void); 
static  void  confirmexit  (void); 


I************** **************************♦*****************************/ 

/*  miscellaneous  global  variables  */ 

^***** ********************************** *******************************/ 
int  in_the_exercise  =  1; 


y***** *********************************** ******************************/ 

/*  graphic  initialization  variables  */ 

^* *************************************************************** ****** j 

int  curr_mode; 

int  graphdriver; 

int  graphinode; 

int  graph_error; 

hit  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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y**********************************************************************/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/*****************************************:;*************************+**/ 

static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
iffregisterbgidt  iver( ATT_driver)  <  0)  exit(  1 ); 

} 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/****+*++++********+*******+****************************+***+******+***/' 
static  void  init_graph(void) 

I 

int  xasp.  yasp: 


register_drivers(); 
grapluhiver  =  DETECT; 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresultf); 

y****  +  ***********  +  ***********************jt,***j)<***,(,,(<)(<:(<:),,|<:),:(<j(,j(<.(,j(,l)<j)(,),,|,:(,,(,l(<,ty 

if(graph_error  <  ()){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

) 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

/***************! fc***************************************************^ 

settext(); 

/**♦** **********************+*********************************+****+*+/ 
if  ((graplimode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graplimode  ==  MCGAHT)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLlD_FlLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 

} 

/**************** ******************************************************/ 
static  void  confum_graph_exit(void) 

( 

strict  _oukev  t  *kblist; 
char  ch; 

setcolor(  backcolor); 

bar(3*x/2.23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  *1 
if(_mouse&MS_CURS )  inshidecurO; 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  y )  II  (ch  =  ’n’)  II  (ch  ==  *Y*)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ‘y’)  II  (ch  ==  n’)  II  (ch  ==  *Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor ); 

bai(31*x,23’l'y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  | 

case  ’y*:  closegraph(); 
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videoinit(); 

exit(O); 

break: 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  'N':  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/<); 
bar(3 1  x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default ;  break; 

) 

hidecur(); 

* f(_mouse&MS_CURS )  msshowcur( ); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

> 


f*  This  function  sets  the  text  default  values  */ 

/******************.,  *****************i<******!«*!(,*1f.>«****!(,****i(,*!<,1(,!4,J(,****!(t!)(^ 

static  void  settext(void) 

I 

settextstyle(0,0.0); 

setlinestyle(0.4.3); 

set«extjustify(HORIZ_DlR,CENTER_TEXT); 
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/***************************  ,i  *********  ********************************* 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y* ***************************************************************** y***^ 

void  Pause(i,j) 
int  i,  j; 

I 

settext(); 

outtextxy(i,j,">»PRESS  A  KEY  TO  CONTINUE ...<«"); 
if(waitkey()=ESC)  confum_graph_exit(); 

) 

/*********************************************************************  *^ 
/*  main  routine  that  calls  exer  routine  */ 

void  main( ) 

I 

exer(); 
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^**********************************************************************^ 
/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

yt*  ******’!''<<************.!<  ************************************************/ 

static  void  exert  void) 


char  Ch; 


init__graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY ); 
rectangle(x,y.MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2, "EXERCISE  3"); 

^* *******************************************************************/ 

pieslice(8*x.7*y, 0,359,2); 

pieslicet  1 3*x.5*y,  0,359,2); 

pieslicet  1 8*x,7*y,0, 359, 2);  /*  a  */ 

pieslicet  13*x,9*y, 0,359,2); 

movetot  13*x.5*y);  lineto(13*x,9*y); 

moveto(8*x,7*y),  l''ietotl8*x,7*y), 

/********************************************************************/ 

pieslicet  25  *x, 5  *y, 0,359,2); 

pieslicet  30*x, 5  *y, 0,359, 2); 

pieslicet  35  *x,  5  *y, 0,359, 2); 

pieslice(40*x,5*y  ,0,359,2); 

pieslice(25*x.7*y, 0,359,2);  /*  b  */ 

pieslicet  35  *x.7*y, 0,359,2); 

pieslicet  40*x.7*y. 0.359,2); 

pieslicet  30*x.t>*y. 0,359, 2); 

pieslicet  35  *x.9*y, 0.359.2); 

pieslice<40*x.9*y  .0.359.2); 

moveto(25*x.5*y );  lineto(25*x,7*y);  Iineto(40*x,7*y);  lineto(40*x,5*y); 


moveto(25*x.5*y );  lineto(25*x,7*y);  lineto(40*x,7*y);  lineto(40*x,5*y); 
moveto(30*x.5*y );  lineto(35*x,5*y);  lineto(35*x,9*y);  Iineto(40*x,9*y); 
movetot 30*x.9*y);  lineto(35*x,9*y); 

/***  ****** ***********************************************************y 

pieslice(45  *x. 5  *y. 0.359.2); 


pieslice(55*x.5*y,0,359,2); 
pieslice(45*x.9*y,0,359,2);  /*  c  */ 

pieslice(55*x,9*y, 0,359,2); 

nioveto(45*x,5*y);  lineto(55*x,5*y);  lineto(55*x,9*y); 
lineto(45*x,9*y);  lineto(45*x,5*y); 

^fr*******************************************************************/ 

pieslice(65*x.5*y,0,359,2); 
piesHce(75*x,5*y,0,359,2); 
pieslice(85*x,5*y, 0,359,2); 
pieslice(65*x.9*y,0,359,2);  /*  d  */ 

pieslice(75*x.9*y.0,359,2); 
pieslice(85*x.9*y.0,359,2); 
moveto(65*x.5*y);  lineto(85*x,5*y); 
moveto(65*x.9*y);  lineto(85*x,9*y); 
moveto(75*x.5*y );  lineto(75*x,9*y); 

outtextxy(  13*x,12*y,"(a)"); 
outtextxy(32*x,  1 2*y,"(b)" ); 
outtextxy(49*x.  12*y  ,"(c)” ); 
outtextxy(74*x,12*y,"(d)"); 

^♦fr******************************************************************/ 

outtextxy(15*x,2*y, "Which  one  of  the  following  graphs  is  a  rooted  tree  ?’’); 
outtextxy(15*x, 1 8*y, "Enter  yout  choice  here  —  >"); 

Ch  =  getch  (); 

if(Ch==ESC )  confinn_graph_exit( ); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  ( 
outtextxy(45*x,18*y,"  Please  type  a,b,c,  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  V)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==^  ’d’)) 

setcolor(backcolor); 

bar(45*x,17*y,88*x,19*y); 

setcolor(forecolor); 

} 

switch  (Ch)  ( 

case  ’a’:  outiextxy(47*x,18*y,"a"); 
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outtextxy(52*x,18*y, "Sorry!  It  cannot  be  a  rooted"); 
outtextxy(52*x,19*y,"tree,  because  it  has  more  than"); 
outtextxy(52*x,20*y,"on  vertex  with  indegree  of  0,"); 
outtextxy(52*x,21*y, "moreover,  since  it  is  not  con-"); 
outtextxy(52*x,22*y,"nected,  it  is  not  even  a  tree."); 
outtextxy(52*x,23*y,"The  answer  is ’d’."); 
break; 

case  ’b’:  outtextxy(47*x,18*y,"b"); 

outtextxy(52*x,l  8  *y, "Sorry!  It  cannot  be  a  rooted"); 
outtextxy(52*x,19*y,"tree,  because  it  has  more  than"); 
outtextxy(52*x,20*y,"on  vertex  with  indegree  of  0."); 
outtextxy(52*x,21*y,"The  answer  is ’d’."); 
break; 

case  ’c’:  outtextxy(47*x,18*y,"c"); 

outtextxy(52*x,18*y, "Sorry!  It  cannot  be  a  rooted”); 
outtextxy(52*x,I9*y,"tree,  because  it  has  a  cycle."); 
outtextxy(52*x,20*y,"The  answer  is  ’dV); 
break; 

case ’d’;  outtextxy(47*x,18*y,"d"); 

outtextxy(52*x,18*y, "That’s  right!  Congratulations."); 
break; 

default  ;  break; 

I 

r>ause(30*x.24*y); 

closegraph(); 
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/*  PROGRAM  :  q424.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Mar.  20,  1990 
REVISED  :  Apr.  17,  1990 


DESCRIPTION  :  This  program  contains  the  fourth  exercise  about  rooted 
trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defineii( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#indude  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC__)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#defuie  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#def;ne  ff_name  name 

#elif  defmed( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 

f*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 
static  void  show  alg  (void); 
static  void  otep_solution  (void); 
static  void  comparesolutions  (void); 
static  void  confinn_exit  (void); 


j*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  +  *  *  *  *  *  *  *  1(1  *  *  *  *  *  *  +  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 


/*  miscellaneous  glooal  variables  */ 

/♦i*********************************************************************/ 


int  in_the_exercise  =  1 ; 


/*  graphic  initialization  variables  */ 

int  curr_mode; 

int  graphdriver: 

int  graphmode; 

int  graph_error: 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


^t**************1'*****************************************************,^ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register_drivers(void) 


if(registerbgioriver(CGA_driver)  <  0)  exit(i ); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(  ATT  .driver)  <  0)  exit(l); 


^*****************  +  ***********  +  *********************************3(<***  +  **^ 

/*  This  fiicfion  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 


int  xasp,  yasp: 


register_drivers(); 
graphdriver  =  DETECT; 

I***  ********************  *************************  **1******************^ 

initgraph(&graphdriver,&graphmode,""); 
graph_erroi  =  graphresult(); 

^***************************************!i<*****!i<jt,**********:t<**,i<,i,;t<,(,**,(<.(,y 

if(graph_error  <  0)( 

puts(grapherronnsg(graph_error)); 

exit(l); 

} 

/************************************************%*lf'*,|,:t'*,f,**I',I|<1',*]|,,|(I|tIf,I|,,jy 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  Max  K/RO 
y  =  MaxY/25; 

/'*+***********+++*******+*******+***+****+***********  +  **+**+*******++/ 
settexf( ); 

^********************************************************************^ 
if  ((graplunode  ==  CGAHI)  II  (graplunode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 

setfiUstyle(SOLID_FILL,BLACK); 

backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  | 

set  t  iUsty  Ie(SOLI  D_FILL,B  L  (JE ) ; 

backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 


^****************** **************************************************** ^ 


static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  cli; 


setcolor(  backcolor); 

bar(3  *x/2,23*y,  1 79*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS  CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  ( ): 

while  (!((ch  ==  ’y’>  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  =  Y)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  { 

case  ’y’:  closegraph(); 
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videoinit(); 

exit(O): 

break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4  *x/3 ,23  *y  ,30*x,97 *y/4); 
bar(3 1  *x,23*y,69*x,97*y/4 ); 
setcolor(  forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3 ,23  *y  ,30*x,97  *y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default  ;  break; 

} 

hidecur( ); 

if(_mouse&MS_CURS)  msshowcur( ); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 


I#  jfcifr  *  afe  *  **  %  *  *  **  +  *  +  *  *  +  sfe  +r  *  *  jfnfr  iff  *  sfe  afe  *  *  *  *  %  *  ★  *  *  *  +  *  *  +  *  *  *  *  +  *  *  *  *  *  #  *  *  *  %  *  *  *  *  %  *  *  %  *  *  * 


/*  This  function  sets  the  text  default  values  */ 


static  void  settext(void) 


I 


settextstyle(0.0,0); 

setlinestyle(0.4.3); 

settextjustify(HORIZ_DlR,CENTER_TEXT); 

} 
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/**************************************%***********************+****+** J 

/*  Equivalent  of  press_a_key  function  for  grapliics  screen  */ 

I**********************************************************************! 

void  Pause(t.j) 
int  i,  j; 

I 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()=ESC)  confirm_graph_exit(); 


/*  maui  routine  that  calls  exer  routine  */ 

void  main() 

I 

exer(); 

I 
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/**********************************************************************/ 
/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

^it^^^^tiititt******^*********************************************^*********^ 

static  void  exer(voul) 

( 

char  Ch; 


init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  .MaxX-x,MaxY-y/2); 
outtextxy(38*x.y/2,"EXERClSE  4”); 

y^*******************************************************************/ 

outtextxy(15*x,8*y,"In  a  rooted  tree  the  level  of  a  vertex  is  defined"); 
outtextxy(15*x,9*y,"to  be  the  length  of  the  simple  directed  path  from"); 
outtextxy(15*x,10*y,"the  root  to  that  vertex.  What  is  the  level  of  the"); 
outtextxy(15*x.l  1  *y,"root  ?"); 
outtextxy(15*x,13*y,"  a)  1  "); 
outtextxy(15*x,14*y,"  b)  0"); 

y**  Jif**************************  *********  *********  ******  +  *****  +  ********/ 

outtextxy(18*x,18*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confiim_graph_exit(); 
while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)))  { 

outtextxy(48*x,18*y,"  Please  type  a  or  b"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 
if((Ch  ==  a')  II  (Ch  ==  ’b’)) 
setcolor(backcolor); 
bar(50*x,I7*y,88*x,19*y); 
setcolort  forecolor); 


switch  (Ch)  { 

case  ’a’:  outtextxy(50*x,18*y,"a”); 

outtcxfxy(5.‘>*x,18*y,"No  that’s  not  true.  Consider"); 
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outtextxy(55*x,19*y,"the  following  example..."); 

Pause(30*x,24*y); 

setcolor(  backcolor ); 

bar(0,0,MaxX,MaxY); 

setcolor(forecolor); 

rectangle(x,y  ,MaxX-x,MaxY  -y/2); 

exampleO; 

break; 

case  ’b’:  outtextxy(50*x,18*y,"b"); 

outtextxy(55  *x,  1 8 *y  ,’That  ’s  right ! "); 
break; 

default  :  break; 

) 

Pause(30*x.24*y); 

closegraphO; 


^***********************************3**********************************y 

/*  This  routine  gives  an  example  about  the  level  of  root  in  a  rooted  tree  */ 

/A******************'** ******%********%%********************************/ 

static  void  example(void) 

I 


/+***  +  +  *. ^**  I;*  :ri<>t<******************  +  ******************  +  *************  +  :tY 

pieslice(40*x.3*y  ,0,359,2); 
pieslice(28*x,5*y,0,359,2); 
pieslice(40*x,5*y,0,359,2); 
pieslice(52*x,5*y,0,359,2); 
pieslice(20*x,7*y, 0,359,21; 
pieslice(36*x.7*y, 0,359,2); 
pieslice(44*x.7*y, 0,359,2); 
pieslice(60*x.7*y, 0,359,2); 
pieslice(62*x.9*y, 0,359.2); 

moveto(20*x,7*y);  linetc(28*x,5*y);  lineto(40*x,3*y); 
lineto(52*x.5*y);  lineto(60*x,7*y);  lineto(62*x,9*y); 
inoveto(28*x,5*y);  lineto(36*x,7*y); 
moveto(40*x.3*y );  iineto(40*x,5*y); 
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moveto(52*x,5*y);  lineto(44*x,7*y); 

outtextxy(79*x/2,5*y/2,"C"); 

outtextxy(26*x,5*y,"G"); 

outtextxy(79*x/2, 1 1  *y/2,"H"); 

outtextxy(54*x,5*y,"A"); 

outtextxy(61*x,7*y,"B"); 

outtextxy(20*x,15*y/2,"D"); 

outtextxy(36*x,15*y/2,"E"); 


outtextxy(44*x,15*y/2,"F"); 

outtextxy(62*x,l9*y/2,"I"); 

^***********************************************************  *********/ 


outtextxy(5*x.l3*y,"As  we  said  earlier  we  measure  the  level  of  a  vertex  with  its 
simple"); 

outtextxy(5*x,14*y, "directed  path  from  the  root.  And  length  of  a  path  is  determined 
by"); 

outtextxy(5*x.I5*y,"the  number  of  directed  edges  in  the  path.  For  example  the 
level  of'); 

outtextxy(5*x.l6*y, "vertex  F  in  the  example  graph  is  two,  because  its  simple 
directed"); 

outtextxy(5*x.l7*y,"path  consists  of  two  directed  edges,  namely  (C,  A)  and 
(A,  F).  So,"); 

outtextxy(5*x,18*y,"if  the  level  of  vertex  F  is  2,  then  with  similar  approach,  the 
level"); 

outtextxy(5*x.l9*y,"of  A  is  1,  and  obviously,  the  level  of  root  C  is  0."); 

) 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  span.c 

:  Atilia  BAKAN 
:  Mar.  18, 1990 
:  Apr.  18, 1990 


DESCRIPTION  :  This  program  contains  the  tutorial  for  spanning  trees 
It  also  covers  the  breadth-first  search  algorithm  which 
is  used  for  finding  spanning  trees  in  graphs. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <process.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 

#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !definedf_ZTC__)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#defuie  findfiist(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_fmdnext(a) 

#define  ffblk  find_t 

#define  ff_name  natne 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 
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#define  ffjiaine  name 
#deiine  ff_attri'o  attribute 

#endif 

#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  add_shadow  (void); 

static  void  confinn_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  error_exit  (int  ermum); 

static  void  initialize  (void); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  nonnal_exit  (void); 

static  void  Pageup  (void); 

static  void  Pagedown  (void); 

static  void  press_ajkey  (int  wrow); 

static  void  pre_help  (void); 

static  void  quit_window  (void); 

static  void  restore_cursor(void); 

static  void  short_delay  (void); 

static  void  size_window  (int  nerow,int  necol); 

/*  Tutorial  procedures  */ 

static  void  spaiuiing_trees  (void); 
static  void  definition_4_2_3  (void); 
static  void  ex_span_l  (void); 

static  vokl  breadth_first  (void); 

static  void  breadth_first_tree  (void); 
static  void  ex_span_2  (void); 

static  void  ex_span_3  (void); 

static  void  ex_span_4  (void); 

static  void  ex_span_5  (void); 

static  void  theorem_4_7  (void); 
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static  void  proof_4_7 

(void 

static  void  exercises 

(void) 

static  void  exerl 

(void); 

static  void  exerl 

(void); 

static  voiu  PI 

(void); 

static  void  P2 

(void); 

static  void  P3 

(void); 

static  void  P4 

(void); 

static  void  P5 

(void); 

static  void  P6 

(void); 

static  void  P7 

(void); 

static  void  P8 

(void); 

static  void  P9 

(void); 

static  void  P10 

(void); 

static  void  PI  1 

(void); 

static  void  PI 2 

(void); 

-/ 

*  ★  j 


/*  miscellaneous  global  variables 

%^3tc^^%^j#e^3^3«c34c^(3|c^e34c3tr^a#ej|r3«r%3«ca#c^c94ca4c3f<3«c34e94c]4ea|ea4ea4ea|c3|t34c^a^^a4c^e^^^^^|(4«^^«7|«^*!4ca4c4c4<4<^ca|e34c4(-*  ;<■/'. 

static  inf  *savescm,crow,ccol; 
static  WINDOW  wl I OJ; 


f  *  *********************************************************************  f 

/*  error  message  table  */ 

^* *********************************************************************/ 
static  char  *eiror_text[]=  ( 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  ==  1,  windowi  ,g  eiror  */ 

"Syntax:  CXLDEMO  [ -switches J\n\n" 

"\t  -c  =  CGA  snow  eliminationW 
"\t  -b  =  BIOS  screen  writing'll" 

’Si  -m  =  force  monochrome  text  attributes", 

"Memory  allocation  error" 
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/**********************************************************************/ 
/*  miscellaneous  defines  */ 

y* ******************************** *************************************y 

#define  S  HORT_DEL A Y  18 
#define  H_WTNTITLE  33 


/********** ******************************************** ****************/ 
/*  lliis  function  will  add  a  shadow  to  the  active  window  */ 

/* ******** *************************************************************/ 
static  void  add_shadow(  void) 


wshadow(LGREYLBLACK); 


^**********************************************************************^ 
/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  tenninates  the  demo  program.  */ 

^* ********** **********************************************************^ 
static  void  confirm_quit(void) 


struct  _onkey_t  *kblist: 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9,26,l  3,5?,0,WHITE1_BROWN,WHITEI_BROWN))  error_exit(  I ); 
add_shadow( ): 

wputs("Nn  Quit  demo,  are  you  sure?\033A\156Y\b"); 

clearkeys(); 

showcurQ; 

if(wgetchf("YN",’Y’)==’Y’>  normal_exit(); 
wcloseO; 

ItidecurO; 

if(_mouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  ke>s  */ 
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I 


I********************************************************************** 


7 


/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 

y**********************************************************************y 

static  void  disp_sure_msg(void) 

I 


wpi  ints(0,2,WHITEI_BLUE,"Are  you  sure?"); 

} 


y**********************************************************************y 

/*  this  function  handles  abnormal  termination.  If  it  is  passed  an  */ 

/*  error  code  of  1 ,  then  it  is  a  windowing  system  error.  Otherwise  */ 

/*  the  error  message  is  looked  up  in  the  error  message  table.  */ 

y**********************************************************************y 

static  void  error_exit(int  ernium) 


if(ermum)  { 

printf('V%s\n",(emium==l)?wernnsg():error_text[errnuin]); 

exit(errnum); 

I 


/*  this  function  initializes  CXL’s  video,  mouse,  keyboard,  and  help  systems  */ 

y*  ************************************* ft**** ***************************y 

static  void  initialize(void) 

( 

/*  initialize  the  CXL  video  system  and  save  current  screen  info  */ 
videoinit(); 

readcur(&crow,&ccol); 
if((savescm=ssave())==NULL)  error_exit(3); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  { 

mssuppoit(MS_FULL); 
nisgotoxy(  12,49); 

> 
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/*  attach  [Alt-XI  to  the  confirm_quit()  function 
setonkey  (0x2d00  ,conf irm_quit  ,0 ) ; 


*/ 


/*  attach  [Ctrl  Pageup]  to  the  PageupO  function  */ 
setonkey(0x8400,Pageup,0); 


/*  attach  [Ctrl  Pagedown]  to  the  PagedownO  function  */ 
setonkey(0x7600,Pagedown,0); 

/*  initialize  help  system,  help  key  =  [FI]  */ 

whelp- 

def("CXLDEMO.HLP",Ox3bOO,YELLOWI_RED,LREDI_RED,WHITEI_RED,REDL 

LGREY 

,pre_help); 


/ 


********************************************************************** 
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/*  this  function  is  called  anytime  to  switch  back  to  previous  window.  */ 

/**********************************************************************y 

static  void  Pageup(void) 

{ 

static  WINDOW  handle; 


handle  =  whandleQ; 
wactiv(handle  -  I ); 

) 

/****** **************************** ************************************/ 
/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

static  void  Pagedown(void) 

I 

static  WINDOW  handle; 


handle  =  whandle(); 
wactivfhandle  +  1); 
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static  void  pre_he!p(void) 

{ 

add_shadow(); 

setonkey(0x2d0(),confinn_quir,0); 


/***  +  *************  +  ******************  +  ***************************  +  ****,*y 

/*  tiiis  function  handles  noimal  tennination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/************+***************************************************+*+***/ 
static  void  nonnal_exit(void) 

{ 


srestore(savescni); 
gotoxy_(ci  ow  .ccol ); 
if(_mouse)  mshidecur(); 
showcui'O; 
exit(0); 


/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

I*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  i*i  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * + * + *  *i 

static  void  press_a_key(int  wrow) 


register  int  attrl; 
register  int  attr2; 


attrl=(YELLOW)l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo.active~>wattr»4)«4); 
wcenters(wrow, attrl, "Press  a  key"); 
wprints(wrow.O,LGREYI_RED,"Pgup/Pgdn"); 
hidecui  ( t; 

if(waitkey()==ESC)  confirm_quit(); 
wcenters(wrow,attrl,"  "); 
wprints(wrow.(),attr2,"  "); 
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/***********************************************>**********************/ 
/*  This  routine  causes  short  dealys  during  execution  */ 

^fr*********************************************************************^ 

static  void  short_delay(void) 

I 

delay  _(S  HORT_DEL  A  Y ) ; 

) 

/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  [Q]uit  menu  items.  */ 

y*********************************************************************!^ 

static  void  quit_window(void) 

I 

static  WINDOW  handle=0; 

if(handle)  { 
wactiv(handle); 
wclose(); 
handle=0; 

) 

else  { 

handle=w  open(  14, 4 1,17, 70, 0 ,  YELLO  WI_RED,W  HITELRED ) ; 
wputs("  Quit  takes  you  back  to  the^ti  demo  program’s  main  menu."); 

} 

} 


/♦A******************************************************************** 

/*  shows  the  cursor  again  if  it  has  been  hidden  */ 

/i********************************************************************** 

static  void  restore_cursor(void) 

I 

wtextattr(WHITEI_MAGENTA); 

showcurQ; 

I 
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^*  ********************%************************************************/ 
/*  enlarges  or  shrinks  the  windows  */ 

^i*********************************************************************/ 

static  void  size_window(int  nerow,int  necol) 

( 

ws  ize(nero  w  ,necol ) ; 
short_delay(); 

) 

****************************************************************** ^ 
/*  moves  tlie  active  window  to  a  given  screen  coordinates  */ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

static  void  move_window(int  nsiow,int  nscol) 


if(wmove(nsrow,nscol))  error_exit(  1 ); 
short_delay(); 

1 


/*  this  routine  calling  spanning_trees()  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/************************+*********************************************/ 


void  Pl() 

I 

wcloseallO; 
spann  ing_trees( ); 

} 


Z**********************************************************************/ 

/*  this  routine  calling  ex_span_l()  routine  whenever  Pageup  or  */ 

I*  Pagedown  keys  are  pressed.  */ 

I**********************************************************************/ 

void  P2() 

I 


wcloseallO; 

ex_span_l(); 
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/*  this  routine  calling  definition_4_2_3  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y**********************************************************************/ 

void  P3() 


wcloseall(); 

definition_4_2_3(); 


} 

**  ***********  ***  ***************  ************************** ************^ 
/*  this  routine  calling  ex_span_2()  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^***  +  ******:4<****:4 <************************★****★*★**********************/ 


void  P4( ) 

( 

wcloseallO; 

ex_span_2(); 


/**********************************************************************^ 
/*  this  routine  calling  breadth_first()  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^**********************************************************************^ 
void  P5() 

I 

wcloseallO; 

breadth_first(); 


^**********************************************************************^ 
/*  this  routine  calling  breadth_first_tree  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^**********************************************************************^ 
void  P6() 


wcloseallO; 
breadth_first_tree( ); 

1 
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^*  *********************************************************************/ 

/*  tliis  routine  calling  ex_span_5  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^*****#***************1(C*****!(<******#**1(1*********#**#*******************^ 

void  P7() 

I 

wcloseall(); 

ex_span_4(); 

) 

^********************************** ********* ***************************/ 

/*  this  routine  calling  ex_span_6  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y**********************************************************************^ 

void  P8() 

I 

wcloseall(); 

ex_span_5(); 

I 

/**********************************************************************/ 

/*  this  routine  calling  theorem_4_7  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************^ 

void  P9() 

I 

wcloseall(); 
theorem_4_7( ); 

I 

^**********************************************************************^ 

/*  this  routine  calling  exercises  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^**********************************************************************^ 

void  PI 0() 

I 

wcloseall(); 

exercisesO; 
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y**********************************************************************/ 

/*  tliis  routine  calling  exer  l  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^*****>|<*i|<***************!|t*l|<***if**:|<***  +  ****iti**J|<**********=(>************>t<*/ 


void  PI  1() 

l 

wcloseall(); 

exerl(); 

) 


/l*******************************************#**************************^ 

/*  this  routine  calling  exer2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^j^*********************************************************************^ 

void  P12() 

{ 

wcIoseailO; 

exer2(); 

> 


l***  *********  J^*********************************************************^ 

/*  main  routine  which  calls  spanning  trees  tutorial  */ 

^i************************#********************************************:^ 

void  main( ) 

I 

initialize!); 

spanning_trees(); 

) 
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^*** ******************************************************************* ^ 
/*  Routine  which  calls  definition,  example  and  algorithm  routines  about  */ 

/*  spanning  trees.  */ 

!**********************************************************************! 
static  void  spanning_trees(void) 

I 

register  int  *scm; 


if((scrn=ssave())==NULL)  error_exit(3 ); 
cclrscm(LGREYI_BLUE); 

/**************************  +  **********************************,<,******/ 
/*  attach  [Pagedown]  to  the  ex_span_l()  function  */ 
setonkey(0x5 100.P2.0); 

I********** ********************************************************** ^ 

if((w[l]=wopen(5,15,17,65,3,LCYANI_BLACK,BLACKI_CYAN»==0) 

error_exit(l); 

wtitle("fSpanning  Trees]",TCENTER,_LGREYIBROWN); 
add_shadow( ); 


whelpcat(HJWlNTITLE); 

wputsw("  Suppose  an  oil  company  wants  to  build  a  series  of  pipelines" 
"  between  six  storage  facilities  in  order  to  be  able  to  move” 

"  oil  from  one  storage  facility  to  any  of  the  other  five." 

"  Because  the  construction  of  pipeline  is  very  expensive,  the" 

"  company  wants  to  construct  as  few  pipelines  as  possible." 

"  For  environmental  reasons  it  is  not  possible  to  build  a" 

"  pipeline  between  each  pair  of  storage  facilities."); 
press_a_key(10); 
short_delay(); 
wslide(l,15); 
short_delay(); 

ex_span_l(j; 

srestore(scm); 


) 


^*  ****************  *******  *******************  *  ****  1*  ***********  **********/ 
/*  This  routine  gives  an  example  about  a  spanning  tree  */ 

^^t*********************************************************************/ 

static  void  ex_span_l  (void) 

{ 

y*  **♦**************************************%. i<  ****»**********<t*****<t#i(ty 


/*  attach  [Pageupl  to  the  spanning_trees()  function  */ 
setonkey(0x4900 ,  P 1 ,0 ) ; 

/********************************************************************/ 


/*  attach  [Pagedown]  to  the  definition_4_2_3()  function  */ 
setonkey(0x5 1 00,P3,0); 

/******************************************************************** 


if((wl2J=wopen(14,15,18,65,3,LCYANI_BLACK,BLACKLLGREY))==0) 

error_exit(l); 

wtitle( " f Spanning  TreesJ",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

wputsw("  The  following  graph  shows  the  pipelines  that  can  be  built."); 

press_a_key(2); 

wcloseall(); 

spawnl(P_W  AIT, "exspanl.exe", NULL); 
cclrscm(LGREYI_BLUE); 
definition_4_2_3( ); 
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yl***^*****************************************************************/ 

/*  Tliis  routine  gives  the  definition  of  a  spanning  tree.  */ 

y***  +  +  ******  +  **  +  ******  +  *****  +  ****  +  *  +  ****  +  *  +  +  *  +  +  ************  +  +  **  +  +  +  +  +  +  ,4(*y 

static  void  definition_4_2_3(void) 


/**************************************************+*****************/ 

/*  attach  [Pageup]  to  the  ex_span_l()  function  */ 

setonkey(0x4900,P2,0); 

y********************************************************************/ 

/*  attach  [Pagedown]  to  the  ex_span_2()  function  */ 
setonkey(0x5 1 00,P4,0 ); 

^******************************************,fl,f,****%I|,*)|,*I|l*%************y 

if((w[lJ=wopen(5, 15,9,65, 3, LCYANI_BLACK,BLACKIJLGREY))==0) 
error_exit(  l ); 


wtitle(" [Spanning  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow( ). 

whelpcat(H_W!NTlTLE); 

wputsw("  The  later  graph  in  the  example  takes  us  to  the  idea  of’ 

"  spanning  tree.  What  is  a  spanning  tree  ?"); 
press_a_key(2); 
wslide(l,15); 
short_delay( ); 

if((wl2|=wopen(6,15,l  1,65,3, LCYANI_BLACK,BLACKLCYAN))==0) 
error_exit(l ); 


wtitle("l Definition  -  Spanning  Trees]", TCENTER,_LGREYIBROWN); 
add_shadow( ); 
whelpcat(  H_WINTITLE); 

wputswf  A  spanning  tree  of  a  graph  G  is  a  tree  (fanned  by  using  edges" 
”  and  vertices  of  G)  containing  all  the  vertices  of  G."); 
press_a_key(3); 
shoit_delay( ); 
wcloseall(); 

spawnl(P_WAIT,"exspan2.exe",NULL); 
cclrscm(  LGRE  Y  l_BLU  E); 
ex_sptui_2( ): 


I 
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/*************************** *************************** ****************y 

/*  Tliis  routine  gives  ”10  example  illustration  of  obtaining  a  spanning  tree  */ 

/*  from  a  given  graph  */ 

^* *********************************************************+***********/ 


static  void  ex_span_2  (void) 

( 

y*  *************************************%***************  *************/ 


/*  attach  [Pageup]  to  the  definition_4_2_3()  funciion  */ 
setonkey(0x4900,P3,0); 


►  #****+*/ 


/*  attach  IPagedown]  to  the  breadth_first()  function  */ 
setonkey(0x5 100,P5,0); 

j*  *********  ****************+**********■•<**************+***************/ 

if((  w  1 1  ]=wopen(  5 , 1 5 . 1 3 ,65 ,3  ,LC Y  ANI_B  L  AC  'K  3  LACK!_C  Y  AN )  )==0 ) 
error_exit(l ); 

wtitle("[Spaiuiing  Trees  -  Example_3]",TCENTEK,_LGKEYiBROWN); 
add_shadow( ); 
whelpcat(  H^WINTITLE ); 

wputsw("  There  are  several  ways  to  find  a  spanning  tree  for  a  graph" 

"  One  way  is  to  remove  an  edge  from  each  cycle.  This  method" 

"  is  used  to  find  the  fundamental  system  of  circuits  in  an" 

"  electrical  network.  This  process  is  illustrated  in  the  " 

”  following  example."); 
press_a  1  ey(G); 
short_delay( ): 
wclosel); 

spawiiK  P__W  AIT."exspan3  .exe"  ,NULL), 

cclrscm(LGREYI_BLUE); 

breadth  first! ): 
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^t*******^-^***********************************************************/ 

/*  This  routine  explains  and  illustrates  the  implementation  of  the  breadth  */ 

/*  first  search  algorithm.  */ 

/*******************************************  +  *****j(,***j(<!((j(l*.*,(t**!t<*,)<,|<*  +  +  +  *y 

static  void  breadth_first(void) 


/******************************* t************************** *******%*%/ 

/*  attach  [Pageupl  to  the  ex_span_2()  function  */ 
setonkey(0x4900,P4,0); 

/***************+  |<********i(<*******^****%***4i***i|,****j|<**^*********J(,:(t  +  ^ 

/*  attach  [Pagede  ij  to  the  breadth_first_tree()  function  */ 
setonkey(0x5100,P6,0); 

/****  +  ************************************!t<1|<,|<,t<*I(t*j|,j|(*,|,.)tj(t,|<:(tj(l,)e:),,|t.1<,(,,|tj(<j|<,|,j),!)y 

if((w[  1  |=wopen(5,15,16,54,3,LCYANI_BLACK,BLACKI_CYAN))==0) 
error_exit(l ); 

wtitle("[ Breadth  First  SearchJ",TCENTER,_LGREYIBROWN); 

add_shadc  v(); 

whelpcat(H_WINTlTLE); 

wputswF'  The  method  we  described  above  is  not  the  only  way  to  find" 

"  a  spanning  tree.  There  are  many  others,  and  some  of  these" 

"  are  easier  to  program  on  a  computer  because  they  do  not" 

"  require  that  cycles  be  found.  One  of  these  methods  is" 

"  based  on  the  idea  of  breadth-first  search,  wliich  was" 
discussed  in  earlier  sections."); 
press_a_key(9>; 
wslide(O.O); 

if((w[2]=wopen(2,15, 21,54,3, LCYANIJBLACK,BLACKI_GREEN))==0)  er- 

ror_exit(  1 ); 

wtitleffBreadth  First  Search]", TCENTER,_LGREYIBROWN); 

add_shadow[ ): 

whelpcat(H_WlNTITLE); 

wputsw(”  Recall  that  in  breac.ih-first  search  algorithm  we  stall" 

"  with  a  vertex  S.  Tlien  we  fine'  the  vertices  adjacent  to  S  and" 

"  assign  them  the  label  1 .  Next  we  look  at  the  unlabeled" 


> 
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"  vertices  that  are  adjacent  to  those  with  label  1 .  These" 

"  newly  found  vertices  are  then  given  the  label  2.  We  continue" 

"  by  finding  unlabeled  vertices  adjacent  to  die  vertices  with" 

"  label  3.  This  process  is  repeated  until  diere  are  no  more" 

"  unlabeled  vertices  adjacent  to  labeled  vertices.  In  this" 

"  procedure  diere  are  edges  that  lead  from  a  vertex  with  label" 

"  k  to  vertex  with  label  k  +  I  that  form  a  spanning  tree  for" 

"  the  original  graph."); 
press_a_key(  17); 
wslide(0,40); 

/*****************************%**************+***+******************/ 
if((w[3]=wopen(5,l5,10,65,3,LCYANI_BLACK,BLACKI_RED))==0) 
error_exit(  1 ); 


wtitle("(Depth  First  Search]",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WlNTTTLE); 

wputs("Vi"); 

wputsw("  The  formal  specification  of  the  breadth_first  search  algorithm" 

"  is  as  follows  :"); 
press_a_key(3); 
short_delay(); 
wcIoseall(); 

/***************************************************************  *****/ 


if((w[l]=wopen(0,15,24,65,3,BLACKI_GREEN,BLACKLCYAN))==0) 

error_exit(l); 

wtitle("|Breadth  First  Search  Algoritlirn]'',TCENTER,BLUELLGREY); 
add_shadow( ); 

wputsw("  This  algorithm  will  find  a  spanning  tree,  if  it  exists," 

"  for  a  graph  G  with  n  vertices.  In  the  algorithm,  L  is  the  set" 

"  of  vertices  with  labels  and  T  is  the  set  of  edges  connecting" 

"  the  vertices  in  L."); 
wputs(’Vi"); 

wputsw("  Step  l  (start  with  a  vertex).  Pick  a  vertex  U  and  assign" 

”  U  the  label  0.  Let  L  =  (  x  },  T  =  0,  and  k  =  0"); 
wputs("\n"); 

wputsw("  Step  2  (L  has  n  vertices).  If  L  contains  all  the  vertices" 
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"  of  G,  then  stop;  the  edges  in  T  and  the  vertices  in  L  form" 

"  a  spanning  tree  for  G."); 
wputs("\n”); 

wputs("  Step  3  (L  has  fewer  than  n  vertices).  If  L  does  not  contain" 

"  all  the  vertices  of  G,  find  the  vertices  not  in  L  that  are" 

"  adjacent  to  the  vertices  in  L  with  largest  label  number  k." 

"  If  there  are  no  such  vertices,  G  has  no  spanning  tree.  " 

"  Otherwise,  assign  these  newly  found  vertices  the  label  k  +  1" 

"  and  put  them  in  L.  For  each  new  vertex  with  label  k  +  1 
"  place  in  T  one  edge  connecting  this  vertex  to  a  vertex  with" 

"  label  k.  If  there  is  more  than  one  such  edge,  choose  one" 

"  arbitrarily.  Return  to  Step  2."); 
press_a_key(22); 
short_delay( ); 

/*******************************************************+************/ 
if((wf  2]=wopen(5 , 1 5 , 1 0,65 ,3,LCY  ANI_BLACK,BLACKLRED))==0) 
error_exit(  1 ); 

wtitle("[ Breadth  First  Search  -  Example_4]",TCENTER,_LGREYIBROWN); 

add_shadow( ): 

whelpcat(H_WINTITLE); 

wputs(”\n  We  need  to  show  an  example  !"); 

press_ajkey(3); 

short_delay(): 

wcloseallO; 

spawnl(P_WAIT,"exspan4.exe",NULL); 
cclrscm(  LGRE  Y  l_B  LU  E ); 
bread  t  li_f irs  t_t  ree( ) ; 
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^**  +  ***********************************!f'*:t'***1t')f'4<l'  +  *’<<'t‘*’t<;ti**********>fr****^ 

/*  Another  exainple  about  a  Breadth  First  Search  Algoritltm  implementation  */ 

/♦♦a*******************************************************************^ 

static  void  breadth_first_tree(void) 

I 


/*  attach  [Pageup]  to  the  breadth_first()  fimction  */ 
setonkey(0x4900,P5,0); 

/fc^******************************************************************/ 


/*  attach  [Pagedown]  to  the  ex_span_4()  function  */ 
setonkey(0x5 100,P7.0); 

if((w[l  j=wopen(2, 1 5,14,65,3,LCYANI_BLACK,BLACKLGREEN))==0) 
ei  ror_exit(  1 ); 

wtitlef  [Breadth  First  Search]"  ,TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTlTLE); 

wputsw("  The  construction  process  in  Step  3  of  this  algorithm" 

”  guarantees  that  the  edges  in  T  and  the  vertices  in  L  form" 

"  a  connected  graph.  Furthennore,  each  edge  in  T  joins" 

"  two  vertices  labeled  with  consecutive  integers,  and  no" 

"  vertex  in  L  is  connected  by  an  edge  in  T  to  more  than  one" 

"  vertex  with  smaller  label  .Therefore,  no  collection  of  edges” 

"  in  T  forms  a  cycle.  Thus,  after  each  iteration  of  Step  3" 

"  the  edges  in  T  and  the  vertices  in  L  form  a  tree."); 
press_a_key(  10); 
short_delay( ); 
ex_span_4(); 

} 
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^************************************************ ********************** ^ 
/*  Another  example  about  a  Breadth  First  Search  Algoritlun  implementation  */ 

^** ******************************************************************** ^ 


static  void  ex_span_4  (void) 

I 


I********************************************************************/ 

/*  attach  fPageup]  to  the  breadth_first_tree()  function  */ 
setonkey  (0x4900 .  P6 ,0) ; 

I********************************************************************/ 

/*  attach  fPagedown]  to  die  ex_span_5()  function  */ 
setonkey(0x5100,P8,0); 


if((w[2J=wopen(13, 15, 18,65,3, LCYANI_BLACK,BLACKI_RED))=0) 
error_exit(l); 

wtitle(”[Breadth  First  Search j",TCENTER,_LGREYIBROWN); 
add_shadow( ); 
whelpcat(  H_  WINTITLE) ; 

wputs('\i  Now  we  will  show  you  one  more  example.”); 

wputs(’\i  But  a  little  bit  complicated  !"); 

press_a_key(3); 

short_delay( ): 

wcloseallO; 

spawnl(P_WAIT, "exspan5.exe", NULL); 
cclrscm(LGREYLBLUE); 


A****************************************** 


♦  *  %  **  %  *  afe  afe  *  *  *  *  *  *  *  *  4c  *  *  *  *  %  *  *  *  j 


if((w[l]=wopen(5,15,12,65,3,LCYANI_BLACK,BLACKI_CYAN))==0) 

error_exit(l); 

wtitleC’l Breadth  First  Search]", TCENTER,_LGREYIBROWN); 

add_shadow( ): 

whelpcat(H_WINTITLE); 

wputsw(”  A  spanning  tree  constructed  by  means  of  the  breadth-" 

"  first  algorithm  is  sometimes  called  a  ’shortest  path  tree’" 

"  because  of  the  path  from  U  to  any  other  vertex  using" 

"  edges  in  the  spanning  tree  is  a  shortest  path  in  the" 

"  original  graph.”); 
press_a_key(5); 
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short_delay(); 

wcloseO; 

ex_span_5(); 


} 


/*  Tills  routine  gives  an  example  illustration  of  a  graph  which  does  not  have  */ 

/*  a  spanning  tree  */ 

/********************************************%*************************/ 
static  void  ex_span_5  (void) 

I 

/fr*******************************************************************^ 

/*  attach  jPageup]  to  the  ex_span_5()  function  */ 
setonkey(0x4900,P7,0); 

/*  attach  jPagedown]  to  the  theorem_4_7()  function  */ 
setonkey(0x5 1 00,P9,0); 

if((w[  1  |=wopen(8 , 1 5 , 1 3 ,65,3  ,LC  Y  ANI_BLACK,WHITEI_BLUE))==0) 
error_exit(l); 

wtitle("[Breadth  First  SearchJ",TCENTER,  JLGREYIBRO . .  N); 

add_shadow( ); 

whelpcat(HJWNTITLE); 

wputsw(”  In  the  examples  so  far,  the  graphs  have  had  spanning  trees." 

"  However,  this  is  not  always  the  case,  as  you  will  see  in  " 

"  the  next  example."); 
press_a_key(3 ); 
wclose(); 

spawnl(P_WATT,"exspan6.exe",NULL); 
cclrscmt  LGREYI_B  LU  E); 
theorem_4_7( ); 
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/************************** **********%***********************%****%%***/ 
/*  This  routine  gives  the  theorem_4_7  about  tire  spanning  trees.  Besides,  */ 

/*  if  the  user  wants,  it  gives  the  proof  for  this  theorem.  */ 

j*  ************************************************  ********************  Hfj 

static  void  theorem_4_7(void) 


struct  _onkey_t  *kblist; 

/********************************************************************/ 


/*  attach  [Pageup]  to  the  ex_span_6()  function  */ 
setonkey(0x4900,P8,0); 


/l********************************************************************/ 


/*  attach  [Pagedown]  to  the  exercises()  function  */ 
setonkey(0x5 100,P1(),() ); 

/********  ******+  ^jfc*********************************  *  +  *:♦<  ****%  +  ***  +  *  +  + +  j 


if((w[  1  ]=wopen(5 , 1 5 , 1 1 ,65,3  ,LCYANIJ3LACK,WHITEIJRED))==0) 
error_exit(l); 

wtitleQBreadth  First  Search]" ,TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNnTLE); 

wputsw("  In  the  examples  we  have  seen  that  the  existance  of  a" 

"  spanning  tree  is  related  to  the  connectedness  of  the  graph." 

"  This  relationship  is  made  explicit  in  the  following  theorem."); 
press_a_kcj(4j; 
short_delay(); 
wcloseO; 


if((w[  1  ]=wopen(2,4,7,7 1 ,3,LCYANI_GREEN,WHITEI_LGREY))==0) 
error_exit(l ); 

wtitle( "[Spanning  Trees  -  Theorem_4_7]",TCENTER,_MAGENTAIWHITE); 
add_shadow( ); 
whelpcat(H_  W1NTITLE ); 
wputs(.Yn  Theorem_4_7\n"); 

wputswl"  A  graph  G  is  connected  if  and  only  if  G  has  a  spanning  tree."); 
press.  a_key(3); 

^* *******************************************************************/ 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
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if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9,20, 13,55, 0,BROWN1_CYAN,REDI_B LACK))  error_exit(l); 
add_shadow(); 

wputs('Nii  Do  you  want  to  see  the  proof?  \£)33A\156Y\b"); 

clearkeysf); 

showcurf); 

if(wgetchf(”YNYY>=’Y’)  { 
wclose(); 
proof_4_7(); 

} 

else  wcloseO; 
hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
cligonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

wclosef); 

exercisesf); 

) 


/*  This  routine  gives  the  proof  to  the  theorem_4_7  */ 


static  void  proof_4_7(void) 

I 

/*  attach  [Pageup]  to  the  ex_span_6()  function  */ 
setonkey  (0x4900 ,  P8 ,0 ) ; 

I*#*  i*****************************************************************/ 

/*  attach  [Pagedown]  to  the  exercises()  function  */ 
setonkey(0x5 1 00, P 1 0,0); 


if((w[2]=wopen(8,4,20,7 1 ,3,LCYANLRED,WHITE!_GREEN))==0)  error_exit(  1 ); 
wt it le( " | Tlieoi em_4_7  -  Proof]", TCENTER,_MAGENTAIWHITE); 
add_shadow( ): 
whelpcat(  H_WI  NTITLE ); 
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wputsw("  Since  this  is  an  if  and  only  if  statement  we  have  make  our" 

"  proof  in  both  ways.  We  will  first  prove  the  statement 
wputs('\n  A  graph  G  is  connected  =>  G  has  a  spanning  tree."); 
wputs("\nNnProof 

wputsw("  Suppose  that  the  graph  G  has  a  spanning  tree  T.  Since  T  is" 

"  connected  graph  containing  all  the  vertices  in  G,  for  any  two" 
"  vertices  U  and  V  in  G  there  is  a  path  between  U  and  V  using" 
"  edges  from  T.  But  since  the  edges  of  T  are  also  edges  of  G," 

"  we  have  a  path  between  U  and  V  using  edges  in  G,  Hence,  G" 
"  is  connected."); 
press_a_key(10); 
short_delay(): 
wslide(0,4); 
short_delay(); 

if((w[3]=wopen(  1 2,4,24,7 1 ,3,LCYANI_RED,WHITEI_GREEN))==0) 
error_exit(  1 ); 

wtitle("[Theorem_4_7  -  Proof]", TCENTER,_MAGENTAIWH1TE); 

add_shadow( ); 

whel  pcat(  H_W1NTITLE); 

wputs("\n"); 

wputsw("  Now  we  will  go  the  other  way  around,  and  give  a  proof  to" 

"  the  statement  :"); 

wputs("Vi  G  has  a  spanning  tree  =>  A  graph  G  is  connected."); 
wputs(”\n\nProof :"); 

wpuiswf  Suppose  G  is  connected.  Applying  the  bradth-first  search" 

"  spanning  tree  algoritlun  to  G  yields  a  set  L  of  vertices  with" 

"  labels  and  a  set  T  of  edges  connecting  the  vertices  in  L." 

"  Moreover,  T  is  a  tree.  Since  G  is  connected,  each  vertex  of' 

"  G  is  labeled.  Thus,  L  contains  all  the  vertices  of  G  and" 

"  T  is  a  spaiming  tree  for  G.  This  completes  our  proof  for" 

"  the  theorem  4.7."); 
press_a_key(  10); 
wcloseO; 
wcloseO; 
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/*  Tliis  routine  makes  a  small  quiz  about  the  spanning  trees.  */ 


void  exercises(void) 


( 


register  int  ’•‘screen; 

y*******************************************************************^ 


/*  attach  [Pageup]  to  the  theorem_4_7()  function  */ 
setonkey(0x4900,P9,0); 


I*  *  ★  *  *  *  *  *  *  *  *  *  *  *  *  ★  *  *  *  *  *  *  **  *  * + ♦  *  *  *  *  * + + *  *  *  * + *  *  *  *  *  *  *  #  * + *  #  *  *+ * + *  *  *  *  *  %  *  *  *  ★  ifj 


/*  attach  [Pagedown]  to  the  exerl()  function  */ 
setonkey(0x5 1 00.P  1 1 ,0); 

y* *******************************************************************/ 


if((w[i  ]=wopen(5 , 1 5 , 1 0,65 ,3  ,LCYANI_GREEN  ,WHITELRED))==0) 
error_exit(  1 ); 

wtitle(M [Spanning  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WlNTITLE); 

add_shadow(); 

wputs(" Vi" ); 

wputsw("  We  have  completed  our  presentation  of  this  section.  Are" 

"  you  ready  for  a  pop  quiz  ?  "); 
press_a_key(? ); 
short_delay(): 
wclose(); 

if((screen=ssave())==NULL)  error_exit(3);  { 
exerl(); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  ( 
mssupport(MS_FULL); 
msgotoxy(I2,49); 

I 

/*  attach  [AJt-X]  to  the  confirm_quit()  function  */ 

setonkey(0x2d00,confum_quit,0); 

srestore(screen); 


I 
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/*  Dummy  function  to  call  the  actual  exercise  qs_4_2_l  */ 

y*************************#********************************************^ 
static  void  exerl(void) 

I 

^**********************!(<:|<***:)<*****:|c:(i*******:tt*:MtJ(i****:(r:(t:ti#******J(<****!tr*y 


/*  attach  [Pageup]  to  the  theorem_4_7()  function  */ 

setonkey(0x4900,P9,0); 

^fr*********^*********************************************************/ 

/*  attach  [Pagedown]  to  the  exer2()  function  */ 
setonkey(0x5 100,P12,0); 

^♦i*******************************************************************^ 

if((w[  1  ]=w  open(5 . 1 5 , 1 0,65 ,3  ,LC  Y  ANI_GREEN  ,WHITEI_RED))==0) 
error_exit(  1 ); 

wtitle("  [Spanning  Trees  J " ,TCENTER  ,__LGRE Y  iB  RO  WN ); 

whelpcat(H_WINTITLE); 

add_shadow( ); 

wputs(”Nn"); 

wpulsw("  Here  is  the  first  question.  ”); 

press_a_key(3>; 

wcloseO; 

spawnl(P_WAIT,"qs421.exe",NULL); 

cclrscm(LGREYI_BLUE); 

exer2(); 

} 
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/*  Dummy  function  to  call  the  actual  exercise  qs_4_2_2  */ 

^j|<*************i(c**jM<**j(«**#itt*********i(<*************j|<*#+***%*******  +  *i|i***^ 

static  void  exer2(voic1) 

( 

^*  +  +  +  +  *  +  *:  +  +  +  *  +  *  +  **  +  ****%*  +  +  +  +  +  +  +  +  +  +  *  +  *****  +  +  +  **  +  +  **  +  +  +  *  +  +  **  +  *  +  +  +  +  +  +  +  +y' 

/*  attach  [Pageup]  to  the  exerl  ()  function  */ 

setonkey(0x4900,P  1 1 ,0); 

y* *******************************************************************/ 

if((w[  1  J=wopen(5, 1 5 , 1 0,65,3,LCY  ANLGREEN,WHITELRED))=0) 
error_exit(l); 

wtitle("[Spanning  Trees]", TCENTER,_LGREYIBROWN); 

wheIpcat(H_WlNTlTLE); 

add_shadow( ); 

wputs("\ji"); 

wputsw("  Here  is  the  second  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_W  AIT, "qs422.exe", NULL); 

ccIrscrn(LGREYI_BLUE); 

normal_exit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exspan l.c 
:  Atilla  BAKAN 
:  Apr.  18, 1990 
:  Apr.  18, 1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

/*  Turbo  C  */ 

/*  all  others  */ 


#if  defined(__TURBOC _ ) 

#include  <dir.h> 

#else 

#include  <direct.h> 
#endif 


#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

^define  bioskey(a)  _bios_keybrd(a) 

^define  fmdfirst(a,b,c)  _dos_findfirst(a,c,b) 

^define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find^t 

#define  ff_name  name 

#elif  defined( — ZTC — )  /*  Zortech  C/C++  */ 

#defme  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _G  RA  PH_T_DEFI  NED 


/*  function  prototypes  */ 

I*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_di  ers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


j**********************************************************************/ 

/*  graphic  initialization  variables  */ 

f* **************************************************************** *****/ 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


I* ******  *************************************************************** j 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^*************************************** *******************************  I 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


728 


/**********************************************************************/ 
/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 


static  void  init_graph(void) 

[ 

int  xasp,  vasp; 


register_drivers(); 
graphdriver  =  DETECT; 

/********************************************************************/ 


jiitgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresultO; 

y*  ***********  ***************************************************:.  ****^ 

if(gTaph_eiror  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

/*  ******************************************************** ***********/ 


MaxX  =  getmaxxO; 

MaxY  =  getmaxy(); 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  -= 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  -  BLACK: 
quitcolor  =  WHITE; 

} 

else  ( 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 
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y* ********************************************** ***********************y 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor) ; 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(quitcolor) ; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?”); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  il  (ch  ==  ’n’)  il  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  ’y’:  closegraph(); 
videoinit(); 
exit(0); 
break; 

case  ’Y’-  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor), 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forccolor); 
break, 

default :  break; 

} 

hidecurQ; 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


^********** ************************************************************ ^ 
/*  This  function  sets  the  text  default  values  */ 

/*  ************************************************* ******************** j 

static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/ft*********************************************************************/ 

void  Pause(i,j) 
int  i,  j; 

( 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<’’); 
if(waitkey()==ESC)  confirm_graph_exit(); 


/**********************************************************************! 
/*  main  routine  that  calls  exer  routine  */ 

/**********************************************************************/ 
void  main() 

{ 

exer(); 

} 
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/*******^***********************************.M>!<  ***************-(<********/ 

/*  This  routine  illustrates  an  spanning  tree.  */ 

/**********************************************************************/ 


void  exer() 

{ 


init_graphO; 
setcolor(forecolor) ; 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2,"EXAMPLE  SPAN_1 "); 


/t***************^*****^*****  ********  ************************ *******/ 


pieslice(3*x,14*y,0,359,2); 
pieslice(33*x,  12*y, 0,359,2); 
pieslice(43*x,  1 8  *y,0,359,2); 
pieslice(8*x,  1 8*y, 0,359,2); 
pieslice(23*x,5 1  *y/4,0,359,2); 
pieslice(28*x,18*y, 0,359,2); 

moveto(3*x,14*y);  lineto(23*x,51*y/4);  lineto(33*x,12*y); 

lineto(43*x,18*y);  lineto(8*x,18*y);  lineto(3*x,14*y); 

moveto(8*x,  1 8*y);  lineto(23*x,5 1  *y/4);  lineto(28*x,  1 8*y); 

outtextxy(l  1  *x,14*y,"a"); 

outtextxy(27*x,13*y,”b"); 

outtextxy(36*x,16*y,"c"); 

outtextxy(34*x,35*y/2,"d"); 

outtextxy(  1 5*x,35*y/2,"e"); 

outtextxy(  1 5*x,  1 6*y  ,"f '); 

outtextxy(7*x,16*y,"h"); 

outtextxy(28*x,16*y,"g"); 

/********************************************************************/ 
outtextxy(2*x,2*y,"The  task  is  to  find  a  set  of  edges  which,  together  with  vertices 
incident  on"); 

outtextxy(2*x,3*y, "these  edges,  form  a  connected  graph  containing  all  the  vertices 
and  having  no"); 

outtextxy(2*x,4*y,"cycles.This  will  allow  oil  to  go  from  any  storage  facility  to  any 
other  with-"); 
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outtextxy(2*x,5*y,"out  unnecessary  duplication  of  routes  and,  hence,  unnecessary 
building  cost."); 


Pause(30*x,24*y); 

/***4c*****4t****4 k*****************************************************y 


pieslice(48*x,14*y,0,359r2); 
pieslice(7  8*x,  1 2*y, 0,359,2); 
pieslice(88*x,  1 8*y, 0,359,2); 
pieslice(53*x,  1 8*y,0,359,2); 
pieslice(68*x,5 1  *y/4, 0,359,2); 
pieslice(73*x,18*y,0,359,2); 

moveto(48*x,14*y);  lineto(68*x,51*y/4);  lineto(78*x,12*y); 

lineto(88*x,18*y);  lineto(53*x,18*y);  lineto(48*x,14*y); 

moveto(53*x,18*y);  lineto(68*x,5 1  *y/4);  lineto(73*x,18*y); 

outtextxy(56*x,14*y,"a"); 

outtextxy(72*x,13*y,"b"); 

outtextxy(8 1  *x,  1 6*y,"c"); 

outtextxy(79*x,35*y/2,"d"); 

outtextxy(60*x,35*y/2,"e"); 

outtextxy(60*x,  1 6*y,"f '); 

outtextxy(52*x,16*y,’h"); 

outtextxy(73*x,16*y,"g"); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

moveto(53*x,18*y);  lineto(48*x,14*y); 

moveto(53*x,18*y);  lineto(68*x,51*y/4); 

moveto(53*x,18*y);  lineto(73*x,18*y); 

moveto(73*x,18*y);  lineto(88*x,18*y); 

moveto(68*x,51*y/4);  lineto(78*x,12*y); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(53*x,18*y);  lineto(48*x,14*y); 
moveto(53*x,l  8*y);  lineto(68*x,5 1  *y/4); 
moveto(53*x,  1 8*y);  lineto(73*x,l  8*y); 
moveto(73*x,18*y);  lineto(88*x,18*y); 
moveto(68*x,5 1  *y/4);  lineto(78*x,  1 2*y); 
setlinestyle(0,0,3); 
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/********************************************************************/ 


outtextxy(2*x,7*y,"Now  in  the  next  graph  you  see  an  example  of  this  type  of  a 
graph.  The  edges"); 

outtextxy(2*x,8*y,"with  dashed  lines,  namely  h,  e,  f,  b,  d  may  serve  our 
purposes."); 


/**********4^*****¥**************************************************/ 


Pause(30*x,24*y); 

closegraphO; 

videoirutO; 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exspan2.c 
:  Atilla  BAKAN 
:  Apr.  18,  1990 
:  Apr.  18, 1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
ffinclude  <grapnics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

/*  Turbo  C  */ 

/*  all  others  */ 


#if  defined( _ TURBOC _ ) 

#include  <dir.h> 

#else 

#include  <direct.h> 
#endif 


#if  defined(M_I86)  &&  !definedf_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! — ZTC — )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff  name  name 

#def ine  ff_attrib  attribute 

#endif 
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#<Jefine  _GRAPH_T_DEFINtD 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init _graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

/*  graphic  initialization  variables  */ 

int  currjnode; 

int  graphdrivet ; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^fr*********************************************************************/ 

static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l ); 

) 
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^*******************************************:|(**!|<l(<Jt<****>t<**>l<******  +  ******/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

static  void  init_graph(void) 

I 

int  xasp,  yasp: 


register_drivers(); 
graphdriver  =  DETECT ; 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 


if(grapli_error  <  0)( 
puts(grapherrormsg(graph_error)); 
exit(  1 ); 


} 

/*************************************  *******> tr***********************^ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/2?: 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

I 

else  ( 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 


quitcolor  =  RED; 


forecolor  =  WHITE; 
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I *,M*******************************************************************/ 

static  void  confirm_graph_exit(void) 


{ 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kb!ist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS )  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (): 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  N  )))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  ( ); 

if((ch  ==  Y)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y*>  II  (ch  =  ’N’)) 
setcolor(backcolor); 

bar(3 1  *x,23*y.69*x,97*y/4 ); 

setcolor(qu  itcolor ) ; 

I 

switch  (ch)  I 

case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break: 

case  ’Y’:  closegraphO; 
videoinit(); 
exit(O): 
brealv; 

case  ’n':  setcolor(backcolor); 

bar(4*x/3,23*y,3()*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

! 
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bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

default :  break; 

) 

hidecur(); 

if(_jmouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/**********************************************************************^ 


/*  This  function  sets  the  text  default  values 


*/ 


/*********************************** ***********************************/ 
static  void  settext(void) 

I 


settextstyle(0.0,0); 

setlinestyle(0,4.3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


^*  ********************************************************************  *  j 

/*  Equivalent  of  press_ajkey  function  for  graphics  screen  */ 

y*************************************:^:^^^*^^]^^^!^**********************/ 

void  Pause(i,j) 
int  i,  j; 


settext(); 

oultextxy(i,j,">»PRESS  A  KEY  TO  CONTINUE... «<"); 
if(  waitkey(  )==ESC )  confinn_graph_exit(); 

) 

/*  main  routine  that  calls  exer  routine  */ 

/I.*********************************************************************/ 

void  main( ) 

I 

exer( ), 


739 


/fc^********************************************************************/ 

/*  This  routine  illustrates  spanning  trees.  */ 


/*  fc*********************** 


**%*******************************%**********y 


void  exer() 


I 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX.MaxY); 

rectangle(x  ,y  ,MaxX-x  ,Max  Y -y/2 ) ; 

outtextxy(38*x,y/2,"EXAMPLE  SPAN_2”); 

/I********************************************************************/ 


pieslice(3*x.  1 4*y  ,0,359,2); 
pieslice(33*x.  I2*y, 0,359,2); 
pieslice(43*x,18*y, 0,359,2); 
pieslice(8*x,18*y,0,359,2); 
pieslice(23*x.51*y/4 ,0,359,2); 
pieslice(28*x,18*y,0,359,2); 

moveto(3*x,14*y);  lineto(23*x,51*y/4);  lineto(33*x,12*y); 

lineto(43*x,18*y);  lineto(8*x,18*y);  lineto(3*x,14*y); 

moveto(8*x,18*y);  lineto(23*x,5 1  *y/4);  lineto(28*x,18*y); 

outtextxy(.l  1  *x,14*y,"a"); 

outtextxy(27*x,13*y,"b"); 

outtextxy(36*x,16*y,"c"); 

outtextxy(34*x,35*y/2,"d"); 

outtextxy(  1 5*x,35*y/2,"e"); 

outtextxy(15*x,16*y,"f'); 

outtextxy(7*x,l6*y,"h"); 

outtextxy(28*x,  I 6*y  ,"g'’); 

pieslice(48*x,l4*y,0,359,2); 
pieslice(78*x,l2*y,0,359,2); 
pieslice(88*x,18*y,0,359,2); 
piestice(53*x,  1 8*y  ,0,359,2); 
pieslice(68*x.51*y/4,0,359,2); 
pieslice(73*x,  1 8*y,0,359,2); 

moveto(48*x,I4*y);  lineto(68*x,51*y/4);  lineto(78*x,12*y); 
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lineto(88*x,18*y);  lineto(53*x,18*y);  lineto(48*x,14*y); 

moveto(53*x,18*y);  lineto(68*x,51*y/4);  lineto(73*x,18*y); 

outtextxy(56*x,14*y,"a"); 

outtextxy(72*x,l  3*y,"b"); 

outtextxy(81*x,16*y,"c"); 

outtextxy(79*x,35*y/2,"d"); 

outtextxy(60*x,35*y/2,"e"); 

outtextxy(60*x,  1 6*y  ,"f  ’ ); 

outtextxy(52*x,16*y,"h"); 

outtextxy(73*x,16*y,"g"); 

setcolor(backcolor ) ; 

moveto(53*x.l8*y);  lineto(48*x,14*y); 

moveto(53*x.  1 8*y );  lineto(68*x,5 1  *y/4); 

moveto(5  3  *x ,  1 8  *y );  1  iiieto(73  *x ,  1 8  *y ) ; 

moveto(73*x,l  8*y );  lineto(88*x,  1 8*y ); 

moveto(68  *x .5 1  *y/4 );  lineto(78  *x,  1 2*y ); 

setcolor(  forecolor); 

setlinestyle(3,0.3); 

moveto(53*x,18*y);  lineto(48*x,!4*y); 
moveto(53*x,18*y);  Iineto(68*x,51  *y/4); 
moveto(33*x,18*y);  lineto(73*x,18*y); 
moveto(73*x.l8*y);  lineto(88*x,18*y); 
moveto(68*x.M  *y/4);  Iineto(78*x,12*y); 
setlinestyle(0,0,3); 

je  %  afe  *  *  3k  *  aff  3f»  *  *  *  *  %  %  *  *  %  %  *  *  afc  *  *  *  *  *  *  *  afr  %  ★  %  %  *  jfr  *  *  *  afc  %  :fr  *  %  %  *  *  *  sft  *  *  %  %  *  +  afc  *  ★  *  aft  jfc  *  *  sfc  +  *  *  j 

outtextxy(2*x.2*y,"In  this  example  the  dashed  edges  in  the  graph  on  the  right 
hande  side  forms  a"); 
outtextxy(2*x,3*y,"a  spanning  tree."); 

Pause(30*x.24*y ); 

outtextxy(2*x.5*y,"If  the  graph  G  is  a  tree,  then  its  only  spanning  tree  is  G  itself 

.  As  you  "); 

outtextxy(2*x,6*y,"see  in  the  following  graphs."); 

Pause(30*x,24*y); 
setcolori  backcolor ); 
bar(29*x.23*y.70*x,49*y/2); 
moveto(  48  *x .  1 4  *y );  1  ineto(  68  *x  .5 1  *y/4 ); 
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tnoveto(78*x,12*y);  lineto(88*x,18*y); 
moveto(68*x,5 1  *y/4);  lineto(73*x,I8*y ), 
moveto(3*x,14*y);  lineto(23*x,51*y/4); 
moveto(33*x.  1 2*y);  lineto(43*x,l  8*y); 
moveto(23  *x  ,5 1  *y/4);  lineto(28  *x ,  1 8  *y ); 
setcolon  forecolor); 

Pause(30*x,24*y); 

inoveto(53*x,18*y);  lineto(68*x,5 1  *yhy 
moveto(48*x,14*y);  lineto(68* x,5 1  *y/4); 
moveto(78*x,l^^y);  lineto(88*x,18*y); 
moveto(68*x,5 1  *y/4);  lineto(73 *x,  1 8*y); 
moveto(3*x,14*y);  lineto(23*x,5 1  *y/4); 
moveto(33*x,  1 2*y);  lineto(43*x,l  8*y); 
moveto(23*x,5 1  *y/4);  lineto(28*x,l 8*y); 

outtextxy(2*x.8*y,"A  graph  may  have  more  than  one  spanning  tree.  For  example, 
the  edges  "); 

outtextxy(2*x.9*y,"h,  a,  e,  b,  d  also  fonn  a  spanning  tree."); 
seteolor(backcolor); 
nioveto(53*x,18*y);  lineto(48*x,14*y); 
moveto(48*x,14*y);  lineto(68*x,5  l*y/4); 
movefo(53*x,18*y);  lineio(73*x,18*y); 
moveto(73*x,18*y);  lineto(88*x,18*y); 
moveto(68*x,?l*y/4);  lineto(78*x,l2*y); 
setcolor(forecolor), 
setlinestyle(3,0,3); 

moveto(53*x,18*y);  lineto(48*x,l4*y); 
moveto(48*x,l4*y);  lineto(68*x,51*y/4); 
moveto(53*x .  1 8  *y );  lineto(73  *x,  1 8  *y ); 
moveto( 73  *x.  1 8  *y );  lineto(88  *x,  1 8  *y ); 
moveto(68*x,51  *y/4);  lineto(78*x,12*y); 
setlinestyle(0.0.3); 

^*  *******************************************************************/ 

Pause(30*x,24*y); 

closegraphO: 

videoinitO; 
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/*  PROGRAM 
AUTHO? 
DATE 
REVISED 


:  exspan3.c 
:  Atilla  BAKAN 
:  Apr.  18,  1990 
:  Apr.  18, 1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Tuibo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h” 

#include  "cxlmou.h" 

#if  defined(__TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !definedC_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  finaiie\t(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff  name  name 

#elif  defined(_  Z  VC_)  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#deiinc  ff_name  name 

#define  ff_attnb  attribute 

#endif 
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#define  _G  RAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

/%**%**%**********************#*%*****%**».  *****************************/ 
/*  graphic  initialization  variables  */ 

********* * ****** *************** ******** ******* ******* ****** **********/ 
int  curr_mode; 
int  graphdriver; 
int  graphmode; 
int  graph_error, 
int  backcolor, 
int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX,  MaxY; 


/**************************************************** ******************y 
f*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y*  *****.*+**************************************************************/ 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exitfl); 
if(registerbgidnver(ATT_driver)  <  0)  exit(  1 ); 
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/**********************************************************************/ 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

/********************************************************************/ 

initgraph(&graphdriver,&graphmode,""); 

graph_error  =  graphresult(); 

j*  ★  +  ★  +  +  +  ★****  +  *******************  +  *  *  ******  *  *****  *  *********  */ 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

/*  *******************************************************************y 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FlLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  ( 

setfillstyle(SOLID_FTLL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 


} 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  ==  V)  il  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n”); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  ’•'x,23*y,69*x,97*y/4 ); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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r 


} 


bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
se  tcoior(forecolor) ; 
break; 

default ;  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


^JK*******************************************************^****** *******  / 
/*  This  function  sets  the  text  default  values  */ 

I**********************************************************************/ 

static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 

^*****************J|c3(tjl«sk=|c3(C3((;i(t3it3(C3|t3(CJ(t:i(e3jt3(ca(C3(e3(C3(tJ(tj(c3(ta(cs(c3#cjJc;ic3(c3jc3(t3(ca|e3([3ji  ^ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

l********+*********************************+^*^^^^^^^^l 

void  Pause(i,j) 
int  i,  j; 

( 

settext(); 

outtextxy(ij,">»PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()=ESC)  confirm _graph_exit(); 

} 

/ **********************************¥***************************v****l|<*!([/ 
/*  main  routine  that  calls  exer  routine  * / 

I**********************************************************************/ 
void  main() 

( 


exer(); 

} 
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1**4 c***************************************************** *********** ***y 

/*  This  routine  illustrates  a  spanning  tree.  */ 


y* ************************************ ***** ************** *********** ***y 


void  exer() 

{ 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/2); 

outtextxy(38*x, y/2, "EXAMPLE  SPAN_3"); 


y********************************************************** ******* ***y 


pieslice(10*x,14*y,0,359,2); 
pieslice(20*x,14*y,0,359,2); 
pieslice(20*x,18*y,0,359,2); 
pieslice(  1 0*x,  1 8*y,0,359,2); 

moveto(10*x,14*y);  lineto(20*x,14*y);  lineto(20*x,18*y); 

lineto(10*x,18*y);  lineto(10*x,14*y);  lineto(20*x,18*y); 

outtextxy(  1 5*x,27*y/2,"a"); 

outtextxy(22*x,16*y,"b"); 

outtextxy(  15*x,37*y/2,"c"); 

outtextxy(8*x,16-  y,"d"); 

outtextxy(  1 3*x,33*y/2,"e"); 

y*  *********************** **********************************  +  *********y 

outtextxy(2*x,2*y,"The  graph  in  this  figure  is  not  a  tree  because  it  contains  cycles 
such  as"); 

outtextxy(2*x,3*y,"a,  b,  c,  d.  In  order  to  obtain  a  tree  our  procedure  will  be  to 
delete  an  edge"); 

outtextxy(2*x,4*y,"in  each  cycle.  For  example  :  deleting  b  from  the  cycle  a,  b,  c,  d 
gives  the"); 

outtextxy(2*x,5*y, "following  graph."); 

Pause(30*x,24*y); 

y* ********************************** *********************************y 

setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor); 
pieslice(40*x,14*y, 0,359,2); 
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pieslice(50*x,14*y,0,359,2); 
pieslice(50*x,18*y,0,359,2); 
pieslice(40*x,  1 8*y,0,359,2); 
moveto(40*x,14*y);  lineto(50*x,14*y); 
moveto(50*x,  1 8  *y );  lineto(40*x,18*y); 
lineto(40*x,  14*y);  lineto(50*x,  1 8  *y); 
outtextxy(45*x,27*y/2,”a"); 
outtextxy  (45 *  x,37  *  y/2,"c  ") ; 
outtextxy(38*x,16*y,"d"); 
outtextxy(43*x,33*y/2,"e"); 


t*****************************************************************/ 


outtextxy(2*x,7*y,"The  resultant  graph  in  the  new  figure  is  still  not  a  tree  because 
it  the  “); 

outtextxy(2*x,8*y, "cycle  c,  d,  e.  So  we  delete  an  edge  in  this  cycle,  say  c."); 
Pause(30*x,24*y); 


setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

pieslice(70*x,  14*y,0,359,2); 

pieslice(80*x,  14*y,0,359,2); 

pieslice(80*x,  1 8*y, 0,359,2); 

pieslice(70*x,  1 8*y  ,0,359,2); 

moveto(70*x,14*y);  lineto(80*x,14*y); 

moveto(70*x,18*y);  lineto(70*x,14*y);  lineto(80*x,18*y); 

outtextxy(75*x,27*y/2,"a"); 

outtextxy(68*x,16*y,"d"); 

outtextxy(73*x,33*y/2,"e"); 

outtextxy(2*x,10*y,"As  you  see  the  resultant  graph  in  the  new  figure  is  a  tree. 

This,  then,  is"); 

outtextxy(2*x,l  l*y,"a  spanning  tree  for  the  original  graph."); 

/*********** *********************************************************/ 


Pause(30*x,24*y); 

closegraph(); 

videoinitQ; 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exspan4.c 
:  Atilla  BAKAN 
:  Apr.  18,  1990 
:  Apr.  18,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  an  breadth  first  search 
implementation. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 

/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey  h" 
#include  "cxlmou.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.li> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M _I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(u)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 


750 


#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

^♦♦fr*******************************************************************^ 

/*  graphic  initialization  variables  */ 

/♦rfr********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


I*********************************************************.*************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/ft*********************************************************************.^ 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l ); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

I 


*********4 «***********************************************************/ 

/*  This  fiiction  initializes  the  necessary  graphical  routines  */ 

static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

f*  ******************************** ******** *************************** 

initgraph(&gniphdriver,&graphmode,""); 
graph_eitor  =  graphresult(); 

y******************************************************************** 


if(graph_error  <  0){ 

puts(grapherronnsg(graph_error)); 

exit(l); 

} 

y********************************************************************/ 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 


y  =  MuxY/25; 
settextO; 

if  ((graplimode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  | 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  ( 

setfillsty  lei  SOLID_FILL, BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 
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/*  ***********  ******************************:(l*!|<!t<j|<:|t*!(<!|<.(,*.|,:ft!|t**!|,j(<;(,.(,.(,.(<!)t!(,.),*** 

static  void  confirm_graph_exit(void) 


/ 


I 


struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,l79*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if (_mouse& MS_C URS )  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(  32*x,24*y Please  type  y  or  n"); 
ch  =  getcli  < ); 

iff  (ch  ==  y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’  Y’>  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3l*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  ( 
case  ’y’;  closegraph( ); 
video  uiit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
vi<'eoinit(); 
exit(O); 
break; 

case  'n':  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

case  ’N’;  setcolor(backcolor); 


753 


bar(4*x/3,23  *y,30*x,97  *y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcoJor(  forecolor); 
break; 

default :  break; 

I 

hidecurf); 

if(_mouse&MS_CURS)  msshowcurf); 
chgonkey(kblist);  /*  restore  any  liidden  hot  keys  */ 

I 

y******************** **************************************************/ 

/*  This  function  sets  the  text  default  values  */ 

/+  +  ****  +  *****:(<*  +  ***************  +  ****  +  ******  +  ****  +  *  +  +  ***  +  +  *  +  ><*+  +  **  +  +  ***  +  / 

static  void  settext(void) 

I 

settextstyle(O.O.O); 

setlinestyle(0.4.3); 

settextjustify(HORIZJ)IR,CENTER_TEXT); 

I 

/*  Equivalent  of  press_ajkey  function  for  graphics  screen  */ 

jit  ^C**************:************************:!^ <  +  +  %  +  ^  +  +  +  +  +  +  +  +  +  +  +  + 

void  Pause(i.j) 
iiit  i,  j; 

I 

settextO; 

outtextxy(i,j,”»>PRESS  A  KEY  TO  CONTINUE... <«*’); 
if(waitkey()==ESC)  confum_graph_exitO; 

) 

j-M***  +  ***  +  ******t****  +  **jt****  +  *****()c***le*********+.4<*:**<  +  ***<*  +  ***(**ic**ti(  +  +  *l 

/*  main  routine  that  calls  exer  routine  */ 

void  main() 

I 

exer(); 
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/**********************************************************************/ 
/*  This  routine  illustrates  an  implementation  of  breadth  first  search.  */ 


/**********************************************************************/ 


void  exer() 

{ 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX.MaxY); 
rectangle(x,y,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXAMPLE  SPAN_4"); 

jit****#**#***********************************************************/ 

pieslice(5*x,7*y,0,359,2);  /*  A  */ 

pieslice(10*x,7*y,0,359,2);  /*  B  */ 

pieslice(35*x.7*y,0,359,2);  /*  G  */ 

pieslice(20*x.4*y,0,359,2);  /*  D  */ 

pieslice(20*x.l0*y, 0,359,2);  /*  E  */ 

pieslice(20*x,31'y/2,0,359,2);  /*  C  */ 
pieslice(20*x.25*y/2,0,359,2);  /*  F  */ 
outtextxy(3*x.7*y,"A"); 
outtextxy(3G!!:x.7*y,"G"); 
outtextxy(20*x/2,15*y/2,"B"); 
outtextxy(20*x,9*y/2,"D"); 
outtextxy(21*x.3*y/2,"C"); 
outtextxy(20*x,19*y/2,"E”); 
outtextxy(21  *x,25*y/2,"F"); 

moveto(5*x,7*y);  lineto(10*x,7*y);  lineto(35*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,4*y);  lineto(10*x,7*y); 

moveto(5*x,7*y);  lineto(20*x,3*y/2);  Iineto(20*x,4*y); 
moveto(5*x,7*y);  lineto(20*x,10*y);  lineto(10*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,25*y/2);  lineto(20*x,I0*y); 
moveto(20*x.3*y/2);  lineto(35*x,7*y); 
moveto(20*x.4*y);  lineto(35*x,7*y); 

moveto(20*x.l0*y);  lineto(35*x,7*y); 
moveto(20*x,25*y/2);  lineto(35*x,7*y); 

outtextxy(45*x,2*y,"k"); 
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outtextxy(52*x,2*y,"L"); 
outtextxy(58*x,2*y, "Label"); 
outtextxy(74*x,2*y,"T"); 
moveto(44*x,5*y/2);  lineto(47*x,5*y/2); 
moveto(50*x,5*y/2);  lineto(55*x,5*y/2); 
moveto(57*x.5*y/2);  lineto(67*x,5*y/2); 
moveto(70*x,5*y/2);  lineto(78*x,5*y/2); 

outtextxy(2*x,14*y,"THE  WAY  WE  APPLIED  THE  ALGORITHM"); 
moveto(3*x/2.29*y/2);  lineto(48*x,29*y/2); 
/********************************************************************/ 
outtextxy(2*x,15*y,".  Initially  pick  (arbitrarily)  A.  "); 

Pause(7*x,24*y); 

outtextxy(45*x,3*y,”0");  /*  initialize  k  */ 

^***** *************************************** ************************/ 
outtextxy(2*x,17*y,".  Label  A  with  0  (As  you  see,  we  will"); 
outtextxy(2*x,18*y,"  show  the  label  in  paranthesis  near"); 
outtextxy(2*x,19*y,"  the  vertex)."); 

Pause(7*x,24*y); 
outtexfxy(58*x,3*y,"A  <-  0"); 
outtextxy(2*x.  1 3*y/2 ,"(())"); 

/********************************************************************/ 
outtextxy(2*x.20*y,".  Put  A  in  L."); 

Pause(7*x,24*y); 

outtextxy(52*x,3*y,"A"); 

^********************************************************************^ 

Pause(7*x,24*y); 

setcolor(backcolor ); 

bar(3*x/2,59*y/4,50*x,24*y); 

setcolor(forecolor); 

1****  +  +  *  +  *******  +  *  +  +  ***  +  *  +  +  ***  It*******************************  **  +  +  ***f 

outtextxy(2*x,15*y,".  Now  put  all  tlie  vertices  adjacent  to"); 
outtextxy(2*x,16*y,"  A  (currently  largest  labeled)  in  L"); 
outtextxy(2*x,17*y,"  and  label  them  with  k  +  1  =  1"); 

Pause(7*x,24*y ); 
outtextxy(52*x,4*y,"C"); 
outtextxy(52*x,5*y  ,"D" ); 
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outtextxy(52*x,6*y,"B"); 
outtextxy  v52*x.7*y,"E" ); 
outtextxy(52*x,8*y,"F”); 

y********************************************************************y 

outtextxy(58*x,4*y,”C  <-  1"); 
outtextxy(58*x,5*y,”D  <-  1"); 
outtextxy(58*x,6*y,"B  <-  1"); 
outtextxy(58*x,7*y,"E  <-  1"); 
outtextxy(58*x,8*y,"F  <-  1"); 
outtextxy(  I9*x,l  3*y,"(  1 )"); 
oattextxy(22*x,3*y/2,"(l)"); 
outtextxy(19*x,5*y,"(  I )"); 
outtextxy(8*x.27*y/4,”(l )"); 
outtextxy(  I9*x,9*y,"(  1 )"); 

y*  ************************************************** a****************y 

outtextxy(2*x,18*y,".  Put  the  edges  connecting  these  "); 
outtextxy(2*x.l9*y,"  vertices  to  A  in  the  tree  T.”); 

Pause(7*x,24*y); 
outtextxy(72*x.4*y ,"( A,C)"); 
outtextxy(72*x.5*y,”(A,D)"); 
outtextxy(72*x.6*y,"(A,B)"); 
outtextxy(72*x,7*y,"(A.E)"); 
outtextxy(72*x,8*y,”(A,F)"'); 
setcolor(backcolor); 
moveto(5*x,7*y);  lineto(20*x,3*y/2); 
inoveto(5*x,7*y);  lineto(20*x,4*y); 
moveto(5*x.7*y);  lineto(10*x,7*y); 
moveto(5*x,7*y ):  lineto(20*x,10*y ); 
moveto(5*x,7*y);  lineto(20*x,25*y/2); 
setcolorl  forecolor); 

setlinestyle(3,0,3); 

moveto(5*x,7*y);  lineto(20*x,3*y/2);  /*  add  (A,C)  to  T  */ 
moveto(5*x,7*y);  Iineto(20*x,4*y);  /*  add  (A,D)  to  T  */ 
moveto(5*x.7*y);  lineto(  10*x,7*y);  /*  add  (A.B)  to  T  */ 
moveto(5*x,7*y);  lineto(20*x,10*y);  /*  add  ( A,E)  to  T  */ 
moveto(5*x,7*y);  lineto(20*x,25*y/2);  /*  add  (A,F)  to  I  */ 
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setlinestyle(0.0.3); 

outtextxy(2*x.20*y,".  Increment  k  and  go  to  Step  2."); 

Pause(7*x,24*y); 
outtextxy(45  *x,4*y ,"  1 "); 

y********************************************************************^ 

Pause(7*x,24*y); 

setcolor(backco!or); 

bar(3*x/2,59*y/4,55*x,24*y); 

setcolor(forecolor); 

^t******************************************************************^ 

outtextxy(2*x,15*y,".  Now  pick  G  since  it  is  unlabeled  and"); 
outtextxy(2*x,  I6*y,"  adjacent  to  the  (currently)  largest"); 
outtextxy(2*x,l7*y,"  labeled  vertex  C."); 

Pause(7*x,24*y); 

outtextxy(52*x,9*y,"G"); 

/♦i*******************************************************************/ 

outtextxy(2*x.l8*y,".  Label  G  with  k  +  1  =  2.”); 

Pause(7*x,24*y); 
outtextxy(58*x,9*y,"G  <-  1"); 
outtextxy(37*x,7*y,"(2)"); 

outtextxy(2*x,19*y,".  Put  the  edge  connecting  G  to  C  ”); 
outtextxy(2*x,20*y,"  in  the  tree  T."); 

Pause(7*x,24*y); 
outtextxy(72*x,9*y,"(C,G )”); 
setcolor(backcolor); 
moveto(20*x,3*y/2);  lineto(35*x,7*y); 
setcolor(forecolor); 
setlinestyle(3.0,3); 

moveto(20*x,3*y/2);  lineto(35*x,7*v);  /*  add  (C,G)  to  T  */ 
setlinestyle(0,0,3); 

outtextxy(2*x,21*y,".  Increment  k  and  go  to  Step  2."); 

Pause(7*x,24*y); 

outtextxy(45*x,9*y,”2"); 


758 
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y****************************************************************:!***/ 

Pause(7*x,24*y); 
setcolor(backcolor); 
bar(3*x/2,59*y/4,55*x,24*y); 
setcolor(  forecolor); 

/*******%******%*%*******%*****%*%*****%*****%***%%****%%*%%****%***%/ 
outtextxy(2*x.l5*y,".  As  you  see  L  contains  all  the  vertices"); 
outtextxy(2*x.l6*y,"  of  the  graph  G.  This  means  we  are  done."); 

^**%%***********4‘4c4<***£*%*****%********%************%*#****’l<***>f'***1t']fy 

Pause(30*x,24*y); 

closegraphO; 

videoinitO; 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exspan5.c 
:  Atilla  BAKAN 
:  Apr.  18, 1990 
:  Apr.  18, 1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  a  breadth  first  search 
implementation. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  “cxlmou.h" 


#if  defined(__TURBOC__)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M _I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  aame 
^define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init _graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 
static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

y**********************v***********************************************y 

/*  graphic  initialization  variables  */ 

y*  *********************************************************************/ 

int  currjnode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor, 

int  x,  y,  MaxX,  MaxY; 


y**********************************************************************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y**************4^*************** ********************************** 


static  void  register_drivers(void) 

{ 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 
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I*  ********************************************************  ^c**********^;^/ 


/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 


static  void  init_graph(void) 

{ 


int  xasp,  yasp; 


register_dri  vers(); 
graphdriver  =  DETECT; 

/****************************. t  .  ***************************************/ 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

/********************************************************************/ 


if(graph_error  <  0){ 
puts(grapherrormsg(graph_error) ) ; 
exit(l); 

} 


^********************************************************************^ 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FILL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiUstyle(SOLIDJFTLL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 


1 
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J*  ******^!llt************************************************************j 

static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?”); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtex  *y(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  { 
case  ’y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

default :  break; 

} 

hidecur(); 

if(_niouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

/************•**********************************************************/ 
static  void  settext(void) 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZJDIR,CENTER_TEXT); 


/****************  +  *****************************************************_/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/****£*************************]|^*************************************:4y 

void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()= ESC)  confirm_graph_exit(); 

} 

/*  main  routine  that  calls  exer  routine  */ 

y-v*********************************************************************/ 

void  main() 

{ 

exerQ; 

) 
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/*  This  routine  illustrates  an  implementation  of  breadth  first  search  */ 

void  exer() 

{ 

init_graph(); 
setcolor(forccolor); 
bar(0,0,MaxX ,  Max  Y) ; 
rectangle(x,y,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXAMPLE  SPAN_5"); 

l*********************************************^^^**************/ 

pieslice(10*x,4*y, 0,359,2);  /*  A  */ 

pieslice(20*x,4*y,0,359,2);  /*  B  */ 

pieslice(30*x,4*y,0,359,2);  /*  C  */ 

pieslice(40*x,4*y, 0,359,2);  /*  D  */ 

pieslice(10*x,7*y,0,359,2);  /*  E  */ 

pieslice(20*x,7*y,0, 359,2);  /*  F  */ 

pieslice(30*x,7*y,0,359,2);  /*  G  */ 

pieslice(40*x,7*y,0, 359,2);  /*  H  */ 

pieslice(20*x,10*y, 0,359,2);  /*  I  */ 

pieslice(30*x,  10*y,0,359,2);  /*  J  */ 

outtextxy(10*x,7*y/2,"A"); 

outtextxy(20*x,7*y/2,"B"); 

outtextxy(30*x,7*y/2,"C"); 

outtextxy(40*x,7*y/2,"D"); 

outtextxy(8*x,7*y,"E"); 

outtextxy(18*x,15*y/2,"F"); 

outtextxy(32*x,15*y/2,"G"); 

outtextxy(42*x,7*y,"H"); 

outtextxy(20*x,2 1  *y/2,'T’); 

outtextxy(30*x,2 1  *y/2,"  J"); 

moveto(10*x,4*y);  lineto(20*x,4*y);  lineto(20*x,7*y); 
lineto(10*x,7*y);  lineto(10*x,4*y); 
moveto(30*x,7*y);  lineto(30*x,10*y);lineto(20*x,10*y); 
lineto(20*x,7*y);  lineto(30*x,7*y); 
moveto(20*x,10*y);lineto(30*x,7*y); 
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moveto(30*x,7*y);  lineto(30*x,4*y);  lineto(40*x,4*y); 

lineto(40*x,7*y);iineto(30*x,7*y), 

moveto(30*x,4*y);lineto(40*x,7*y); 

^*  **************************************************************** 


outtextxy(45*x,2*y,"k"); 
outtextxy(52*x,2*y,"L"); 
outtextxy(58*x,2*y,"Label"); 
outtextxy(74*x,2*y,"T"); 
moveto(44*x,5*y/2);  lineto(47*x,5*y/2); 
moveto(50*x,5*y/2);  lineto(55*x,5*y/2); 
moveto(57*x,5*y/2);  lineto(67*x,5*y/2); 
moveto(70*x,5*y/2);  lineto(78*x,5*y/2); 

outtextxy(2*x,14*y,"THE  WAY  WE  APPLIED  THE  ALGORITHM”); 
moveto(3*x/2,29*y/2);  lineto(48*x,29*y/2); 
^************************************ ******************************* *^ 


outtextxy(2*x,15*y,".  Initially  pick  (arbitrarily)  A. "); 

Pause(7*x,24*y); 

outtextxy(45*x,3*y,"0");  /*  initialize  k  */ 

/********************************************************************/ 
outtextxy(2*x,17*y,".  Label  A  with  0  (As  you  see,  we  will"); 
ouucxtxy(2tx,i8  ■  y,"  show  iiie  label  in  parar.thcsis  near"); 
outtextxy(2*x,19*y,"  the  vertex)."); 

Pause(7*x,24*y); 
outtextxy(58*x,3*y,"A  <-  0"); 
outtextxy(6*x,4*y,"(0)"); 

^*  ************** *****************************************************^ 
outtextxy(2*x,21*y,".  Put  A  in  L."); 

Pause(7*x,24*y); 

outtextxy(52*x,3*y,"A"); 

^*  ***************************************************************** **l 

Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,50*x,49*y/2); 

setcolor(forccolor); 


^********************************************** **************** ******^ 


outtextxy(2*x,15*y,".  Now  put  all  the  vertices  adjacent  to"); 
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